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ABSTRACT 


Goblet, Valentine. M.S.A.A.E., Purdue University, Mai 2016. Phase Of Flight 
Identification In General Aviation Operations. Major Professor: Karen Marais. 


Identifying phases of flight in General Aviation can help in identifying safety events, which 
are events which may result in the aircraft being in a hazardous state. Unlike commercial 
operations that have well-defined phases of flight such as taxi, takeoff, climb, cruise, 
descent, approach, and landing, GA missions have more hard-to-identify phases of flight. 
For example, pilot training missions can involve multiple “touch-and-go” maneuvers, 
which make it difficult to define a distinct cruise phase during the patterns. Here, we 
present an algorithm to automatically identifying phases of flight in GA. The method 
includes an algorithm to tailor the phase of flight identification for flights from different 
regions. We demonstrate our approach on 376 different flights from Cirrus SR20 and 


Cessna C172 aircraft equipped with a Garmin G1000 avionics system. 


1 INTRODUCTION - WHY WE NEED TO IDENTIFY PHASES OF FLIGHT 


General Aviation (GA) is defined as all flight operations, excluding military and scheduled 
airline operations (GAMA, 2013). Almost 97% of the US civil aviation fleet is composed 
of GA aircraft (BTS, 2013). In 2013, 209,034 GA aircraft flew 24.4 million flight hours 
(GAMA, 2013). In the same year, there were 1,222 GA accidents, which accounted for 
94% of all US civil aviation accidents (NTSB, 2015). 18.1% of the GA accidents were 


fatal, resulting in 387 fatalities’. 


1.1. Motivation: Safety Events and Phases of Flight 

In related PEGASAS work on rotorcraft safety, safety events are defined as one or more 
exceedances that take place concurrently during a specified phase of flight and directly 
relate to a safety of flight condition (Rao & Marais, 2015). For example, low airspeed at 
large bank angles is a safety event that can result in an aerodynamic stall. By identifying 
such safety events for different flight phases, we can identify situations during flight that 
pose a high risk of accidents. Table | shows examples of safety events that occur during 
different phases of flight. 

As shown in Table 1, some safety event definitions depend on the phase of flight. For 


example, the limits of a safe bank angle are different during Climb compared to Cruise. 


' This thesis builds on initial work presented in Goblet et al. (2015). 


Therefore the goal of this work is to develop an automatic way of identifying phases of 


flight. This algorithm will be incorporated into related work on safety event identification 


by another researcher. 


Table 1: Example safety events specific to phases of flight 


Phase of Flight Safety events 
Excessive power on the ground; Excessive starter on engagement; Taxi speed on 
Before takeoff ; 2 ; : : : ; 
ramp; taxi speed on taxiways; Hard braking during taxi; Lateral G loads during taxi; 
Excessive RPM drop during engine run-up 
Heading variation at power application; Low RPM at rotation; Airspeed at liftoff, 
Hokeom Angle of attack; Pitch attitude at takeoff; Flap position at takeoff; Bank angle; Lateral 
G loads; Runway distance remaining at liftoff; Tail wind component 
Climb Cross wind component at 100ft; Airspeed on climb between 100ft and 500ft; Bank 
angle below 400ft; Flap retraction; Detection of altitude decrease below 500ft 
Cruise Maximum altitude; Minimum recovery altitude; Turbulence encounter; Turbulence 
penetration speed 
Glide slope deviation; CDI deviation; Vertical speed below 1000 AGL; Airspeed 
Approach with flaps; Airspeed without flaps; Glide angle; Flap position; Bank angle below 200 
AGL; Tailwind component; Crosswind component 
Pitch attitude; Airspeed with flaps; Airspeed without flaps; Detection of hard 
Touchdown 


landing; Lateral G; Centerline tracking; Bounced landing; Excessive braking; 
Touchdown point; High G turn 


1.2 Phases of flight in General Aviation 


Unlike commercial operations that have well-defined phases of flight such as taxi, takeoff, 


climb, cruise, descent, approach, and landing, GA phases of flight are harder to identify. 


Cruise is particularly hard to define for GA. A higher deviation from the intended flight 


altitude can be expected, compared to commercial flights, for several reasons. First, the 


mission profiles and purposes of GA flights are more complicated and varied compared to 


commercial aviation, as highlighted in Figure 1. For example, missions involving crop 


dusting will have more altitude changes than missions performed by a commercial 
passenger aircraft. Second, while commercial pilots are all required to undergo extensive 
training, a GA pilot may have as few as 40 hours of flight time, including at least 10 hours 
of solo flight training, during which no one is monitoring how well they are flying (GPO, 
2015). Finally, GA aircraft are usually flown manually, as opposed to using an autopilot, 
which may result in more variation in altitude, airspeed, and flight path. Other potential 
sources of error include noise introduced by the flight data recorder, and unintended or 


non-pilot induced deviations such as those caused by turbulence. 


Before Takeoff 


Takeoff Touchdown 


Figure 1: Sample General Aviation mission profile with phases of flight. 


1.3. Previous work on phase of flight identification 


Most research on identifying phases of flight has been in commercial operations. Chati and 
Balakrishnan (2013) used Flight Data Recorder (FDR) data to study the performance of 
Airbus 330-223 engines in all phases of flight. They identified seven phases of flight by 
using parameters such as latitude, longitude, pressure altitude, ground speed, and their 


slopes to identify transition points between phases. SVETLANA [Safety (and 


maintenance) improvement through automated Flight data ANAlysis]—a consortium of 
European Union nations and Russia defined new flight phases, using the pre-existing ICAO 
definitions, and developed a robust algorithm for phase of flight identification in 


commercial aviation (SVETLANA, 2013). 


Paglione and Oaks (2006) developed two algorithms to identify the different phases of 
flight using tracked radar surveillance data. Their algorithm determined the horizontal 
phase of flight (whether the aircraft was flying straight, or executing a turn) and vertical 
phase of flight (whether the aircraft was ascending or descending). When compared to the 
legacy algorithm (Paglione et al., 1999), this dual approach resulted in lower missed 


detection rates, with a modest increase in false detection rates. 


Gong and McNally (2004) presented a methodology for the automated statistical analysis 
of trajectory prediction accuracy as a function of three phases of flight (level-flight, climb, 
and descent). They based their estimates on statistical analyses of 2774 large commercial 
jet flights (primarily Airbus and Boeing aircraft), and they showed that prediction 
anomalies could be detected from the error distributions, provided that the set was pre- 
screened to remove outliers or flights with significant variation in their parameter values, 
such as altitude. This technique is therefore unlikely to perform well on GA flights, which 


have many outliers and difficult to distinguish phases. 


There has been relatively little work in automatic identification of phase of flight in GA. 
Nguyen and Ward (1997) developed and implemented an Artificial Neural Network 
Situation Recognizer (ANNSR) to identify six flight modes including takeoff, climb, and 


cruise modes. They compared their approach to a fuzzy logic-based algorithm derived from 


Harral’s work (Harral, 1995), and found that the ANN-based algorithm performed better. 
Kelly and Painter (2006) used fuzzy sets in Flight Segment Identification (FSI), based on 
Nguyen and Ward’s work among others. They argued that fuzzy sets enabled them to: (1) 
overcome the ambiguity of overlapping flight segments (phases), and make a crisp 
definition of the flight segments; and (2) to estimate the certainty and derive confidences 
in their FSI algorithm. However, both of these approaches are complex and time- 
consuming (see Denton and Hung, 1996) and therefore we decided to see whether a 


simpler, faster approach was possible. 


1.4 Thesis Objectives 
The goal of this research is to develop an automatic phase of flight identification with a 


low error rate, reasonable run time, and that can handle the wide variation of GA flights. 


1.5 Thesis Outline 
Here, we present several ways to identify phases of flight in GA operations. We use two 
sets of flight data totaling 376 flights to develop and test our methods. Chapter 2 and 
Chapter 3 are built on Goblet et al. (2015). Chapter 2 defines the different phases of flight 
and the associated characteristics. We present our approach to identifying different phases 
of flight in Chapter 3. We discuss the results from the different methods and measure their 
performance in Chapter 4. In the last chapter, we present concluding remarks and 


suggestions for future work. 


2 CHARACTERISTICS OF FLIGHT DATA, PHASES OF FLIGHT, AND 
FLIGHT CATEGORIES 


This Chapter describes the characteristics and limits of the flight data we used. Then we 
describe what phases of flight we need to identify and what specific phases are easier to 
detect than other ones. We present different possible flight categories to aid in phase of 


flight identification. 


2.1 Flight sample data characteristics 
Our data consists of two sets of flights: an initial set of 53 flights (Set A); and a second, 
larger set of 323 flights (Set B). Both sets of flights were performed by flight students and 
instructors, using Cirrus SR20 and Cessna C172 aircraft. While these flights do therefore 
represent a limited range of pilot types, they also represent a wide range of flying types, 
from beginner flight to flight instructor flight. They also include maneuvers such as go- 


arounds. 


2.1.1. Characteristics 
The length of the flights ranged from 18 minutes for flight training missions to 198 minutes 
for cross-country flights. All flights originated from Indiana, Ohio, Illinois and Kansas. 


They all remain under 10,000 ft above Mean Sea Level. Note that we cannot determine 


from the flight data alone whether flights were conducted under visual or instrument flights 


rules. 


Table 2: Typical flight data recorded using Garmin G1000 avionics 


Column Column Column Column Column Column 
1 2 4 5 6 


miscellan | miscellan | Airframe miscellan | miscellan | miscellan 


k) 


cous cous characteri eous eous eous 


stics 


Year/Mo | Hour/Min | Hour/Min | ident degrees degrees 
nth/Day /Sec 


Local Local Shift to GPS Latitude Longitud 
Date Time UTC waypoint e 
S 


a a ae ee 


Column Column Column 
7 8 9 


miscellan | miscellan 
eous 


Barometri | Altimeter 
caltitude | setting 


587.6 


Column 


Vertical 
Position 


The aircraft all had a Garmin G1000 avionics system on-board, which recorded 66 


parameters at | Hz. Table 2 shows a slightly idealized representation of the parameters 


recorded by the G1000 avionics system. Appendix E shows the full list of parameters. 


Table 3: Headers missing in several flight data (second row) 


Column | Column Column Column Column Column Column 
1 2 3 4 5 6 7 


#airfram log_versi #airframe | unit_soft unit_soft system_s system_id 
e_info on="1.00 | _info ware_part | ware_ver | oftware_p | ="24A6D 
iW log_versi | _number sion="12. | art_numb | 7xxx" 
on="1.00 | ="006- 11" er="006- 

i BOxxx- system_s BOxxx- 

airframe_ | Ax" oftware_p | xx" 
name="C art_numb 

irrus er="006- 

SR20" BOxxx- 


" 


XX 


#yyy- hh:mm ident degrees degrees ft Baro inch 

mm_-dd 

UTCORs Latitude | Longitud BaroA | AIMSL 
e 


Ee a Em Ea 


Several types of errors occur in the data. Table 3 shows an example of a problem 
encountered when we looked at our flight data. In Table 3, the second row specifies the 
aircraft characteristics: the third column shows the aircraft manufacturer and its type (here 


Cessna C172 or Cirrus SR20). 


The second row in Table 3 shows the units used for each parameter For instance, the local 
date and time are listed in the first two columns, and the seventh column contains the 


ground altitude measured in feet. 


First, the final value(s) from each flight may be missing for some parameters. When we 
started developing the algorithms, this issue led to misinterpretations from the algorithms 
since the vector lengths are different depending on the parameter it is analyzing. For 
example, when the length of Time and Altitude vectors varied, the algorithm did not run 
properly and stopped prematurely. Therefore, we added a feature so our algorithm can 


handle different sizes of vectors for a same flight. 


Random cells may also be empty, so the algorithm must be coded to address these empty 
cells. When only a few consecutive cells are empty, it is simple to interpolate between 
them. Larger empty stretches that affect at least 10% of the flight, and especially critical 
phases of flight like touchdowns/landings, can result in incorrect phase of flight 


identification. 


The headers (second row in Table 3) may also vary between datasets if the sets are 
processed after extraction from the FDR. Such intentional modifications can be handled by 
our algorithms, unless the type of aircraft cannot be detected in a specific cell. For most of 
our flights, the airframe is always specified in the same cell, whereas the entire row was 
deleted for 8 of them, as shown in Table 3. If we cannot identify the type of aircraft, we 
cannot define its stall airspeed, which is an essential parameter value for the phase of flight 
identification. Many phases of flight depend on the stall airspeed, like touchdown, takeoff 


and go-around phases. 


The airframe also sets the position of some columns such as the Engine RPM. In Table 4 


and Table 5, for Cessna C172 and Cirrus SR20 aircraft, this parameter is not recorded in 
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the same column. Therefore we need to get information about the aircraft type before 


defining what parameter is recorded at a given location in the spreadsheet. 


In our case, we knew that the airframe used for the 8 flights affected by this problem was 
a Cirrus SR20. In our algorithms, if there is a lack of information about the aircraft, a 
message is displayed and informs the user the aircraft could not be identified. As future 
work, a definition of a generic aircraft could be developed for cases where the aircraft type 


is not specified. 


Table 4: Corresponding column for Engine RPM parameter, for a Cessna C172 (Column 
29) 


Column 1 Column Fad el Column 26 | Column 27 | Column 28 | Column 29 a Column 66 
2 3 


#airframe_i | log_versi 
nfo on="1.00 


" 


cen See 
fm [ewe fow [fe fen fam foe 
fom [ewe bow [fw [om few oe 
fam [ese bow [fiw [or fom ow 
fem [ose bow [foe [oxfam foe 
Se ee Ieee 
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Table 5: Corresponding column for Engine RPM parameter, for a Cirrus SR20 (Column 
27) 


Column 1 Column Feat el Column 26 | Column 27 | Column 28 | Column 29 ie Column 66 
2 3 


#airframe_i | log_versi | #airframe 
nfo on="1.00 | _info 
m log_versi 
on="1.00 
airframe_ 
name="C 
irrus 
SR20" 


dd 

Lcl Date eee PerReM | RPM El evcant | El jercHTa | veLvas | 
eet ae 
SN NC 
SN dC 
EES DS COC 
bs Je Ieee ee 


In the next Section we define all phases of flight that are necessary to identify in our 


research. 


2.1.2 Hand Coding 
To analyze the performance of our algorithms we define a simple error metric as follows: 


. Incorrectly coded points 
Error proportion = ——_—_——___—_—_—_ 
Total points 
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To determine when errors occurred, we hand-coded each of the 53 flights in Set A. Figure 


2 shows the result of hand-coding on Flights #12, #9 and #1). 


Altitude (ft) 


Altitude (ft) 


6000 


Standing phase 
Taxi phase 
5000 Takeoff phase 
Climb phase 
Cruise phase 
4000 Descent phase 
Approach phase 
Touchdown 
3000 Go-around 
2000 
1000 
0 
0 2000 4000 6000 8000 10000 12000 
Time (s) 
(a) 
8000 
7000 
6000 
5000 
4000 
3000 
2000 
1000 
0 
0 2000 4000 6000 8000 10000 12000 
Time (s) 
5000 
4000 
3000 
2000 
1000 
0 
0 2000 4000 6000 8000 10000 12000 
Time (s) 
(c) 


Figure 2: Three examples of "ideal" phases of flight detection for flight Flights #12, #9 
and #1 respectively. Altitude is altitude above Mean Sea Level (MSL) 
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Figure 2 shows that the interpretation of cruise (colored in black) may depend on the type 
of flight. For example, in Figure 2 (c), the altitude (always plotted above the Mean Sea 
Level) varies significantly during cruise, while in (a) the cruise phases are relatively 
smooth. In addition, the altitude can vary significantly, even in small time windows. For 
example, in Figure 2 (a) at 4875 s and 8087s, and in Figure 2 (b) at 5992 s, the rapid 
altitude variations represent patterns made around a particular airport or airfield. Those 
patterns can end by a Go-around as on Figure 2 (a), a full-stop, or just a touchdown before 


climbing and cruising again (touch-and-goes). 


2.2 Flight Categories 


As discussed in the introduction, there are many different types of GA flights. For example, 
crop spreading, aerobatics, and cross country flights have very different mission profiles, 
which lead to a large diversity of recorded flight data which could affect the phase of flight 


identification. We therefore investigated different ways of categorizing flights. 


Flights can for example be categorized according to the length of the cruise segments they 
contain. We can expect our algorithms would not assess long and short cruise segments in 
the same way, as the profile of the altitude curve varies based on that criterion. We could 
separate crop sprayers flight data from aerobatics one with this criterion, since their 
respective cruise segments have different characteristics. However, we did not find a 
sufficient contrast between those two categories when we tested our methods on them. 


Moreover, a threshold would have to be chosen based on a subjective criterion, above 
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which a cruise segment would have been considered as long. We wanted to keep our flight 
characterization as objective as possible, so we had to choose another metric to categorize 


flights. 


The same issue was observed when we aimed to categorize flights by considering the 
variation of altitude during Cruise phases. The difference of altitude with the average one 
of a given flight segment would lead to the use of a specific method. Once again, we needed 
to set a threshold based on subjective criteria, which means we had to postulate what 
choppy and smooth cruise segments are. As we wanted to avoid as many subjective criteria 
as possible, we instead considered another characteristic, the presence of traffic patterns. 
A traffic pattern is a standard path about an airfield or an airport, usually conducted by 
student pilots and their instructors during a checkride or practice test to perform maneuvers 
related to the surroundings of an airport. For instance, while making traffic patterns, a pilot 


carries out a series of takeoffs and landings, as illustrated in Figure 3. 


Base Leg 


Final Leg 


Downwind Leg 


Crosswind Leg 


Figure 3: Illustration of a traffic pattern during flight. 
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Traffic patterns are easily recognized on a graph showing the altitude versus time (see 
Figure 4), and they lead to a different use of algorithms than other flight segments. The 
presence of traffic patterns or not is an objective criterion, in contrast to the consideration 
of the length of a cruise segment or its variation of altitude. This influence will be discussed 


in Section 4.2. 


Traffic patterns 
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Figure 4: Location of traffic patterns for Flight #12. Between 4358 s and 5175 s, three 
traffic patterns are recorded, as well as between 7302 s and 8423 s. Altitude is altitude 
above Mean Sea Level (MSL) 


2.3 Definition of flight phases 


We defined nine phases of flight, as shown in Table 6. These definitions are based on the 
National Transportation Safety Board’s definitions (NTSB, 2014). We added one phase: 
go-arounds. A go-around is a phase during which pilots have to abandon an approach or 


landing. They have to apply full power again before the airplane wheels touch the ground. 
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Go-arounds represent a critical moment when the pilot has to give particular attention to 
the airspeed and RPM. We replaced the landing phase with “touchdown”, to include both 
actual landings and touch-and-goes, where the pilot lands on the runway but applies full 


power again. Combining these events allows us to identify specific safety events such as 


hard landing and a deviation from the runway. 


Table 6: General Definition of Phases of Flight 


Phase of Definition Notes 

Flight 

Standing Any time before taxi or after arrival | NTSB definition (NTSB, 2014) extrapolated to 
while the aircraft is stationary. any area where the aircraft is stationary (not only 

on the ramps or parking areas). 

Taxi The aircraft is moving on the ground | NTSB definition (NTSB, 2014). 
prior to takeoff and after landing. 

Takeoff From the application of takeoff | NTSB definition (NTSB, 2014). 
power, through rotation and to an 
altitude of 35 feet above runway 
elevation. 

Climb Any time the aircraft has a positive | The NTSB definition (NTSB, 2014) only 
rate of climb for an extended period | considers an Initial Climb. We extended this 
of time. definition to any phase where the pilot wants to 

reach another flight level. Therefore, climb 
includes en-route climb. This extended definition 
allows us to detect safety events that are specific 
to positive and significant rate of climb. 

Cruise The time period following the initial | From the NTSB En-route phase definition 
climb during which the aircraft is in | (NTSB, 2014). 
level flight. 

Descent Any time before approach during | Descent is the same as climb but with a negative 
which the aircraft has a negative rate | rate of climb until the altitude is low enough to 
of climb for an extended period of | become an approach phase. 
time. 


17 


Table 6: General Definition of Phases of Flight (continued) 


Phase of 
Flight 


Definition 


Notes 


Approach 


From the point of pattern entry, or 
1000 feet above the runway 
elevation, to the beginning of the 
landing flare. 


NTSB definition (NTSB, 2014). 


Landing 
(renamed 
Touchdown) 


From the beginning of the landing 
flare until the aircraft touches down 
and exits the landing runway, or 
comes to a stop on the runway, or 
when power is applied for takeoff, 
depending upon the intended action 
after landing. 


NTSB definition (NTSB, 2014). 


Go-around 


A Go-around is a situation where the 
pilot is about to make a touchdown 
but decides to apply full power 
before the landing gear touches the 
ground. 


We added this definition in order to deal with 
safety events that may also happen during these 
critical events. 


Some of these phases flight are easier to identify than others, as discussed next in Section 


2.4. 


2.4 Simple phases to identify 


Some phases can be unambiguously identified based on the flight data parameters. For 


phases like Taxi, Standing, Takeoff and Touchdown, at least a part of them is spent on the 


ground. For these phases, there is no variation of altitude that could affect the identification. 


Go-arounds are also easy to identify because they involve attaining a very low altitude. The 


Approach phase can be detected based on the presence of a Touchdown and its recorded 
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ground altitude, so the variation of altitude does not affect any of its points. These phases 
of flight are critical for the pilot: in 2008, 23.4%, 9.7% and 24.1% of all General Aviation 


accidents occur during Takeoff, Approach and Landing phase respectively (FAA, 2008). 


Table 7 shows the parameters we use to identify these phases. All of these parameter values 
are defined in an aircraft’s Pilot Operating Handbook (POH) and therefore do not require 
any judgment or analysis on our part. In this case, we used the POH for the Cirrus SR20 
(Cirrus Design Corporation, 1999). We also defined the appropriate values for the Cessna 


C172, and repeating this process for other aircraft should be similarly simple. 


Table 7: Simple Phases of Flight parameters, with values for the Cirrus SR20 (Cirrus 
Design Corporation, 1999) 


Phase of Flight Identifying Parameters Notes 


Standing Groundspeed (= 0 KIAS) To be certain that the aircraft is stationary on 
the ramp or parking area, we assume that the 
Indicated airspeed (= 0 KIAS) aircraft is standing when both groundspeed and 
indicated airspeed are zero. If we only use 
groundspeed to identify time periods when the 
aircraft is standing, we could misidentify cruise 
portions as standing (e.g. slow flight with a 
strong headwind). Only looking at airspeed is 
not sufficient, as airspeed is usually zero until 
the aircraft is fast enough to take off. 


Taxi Groundspeed (< 25 KIAS) Based on the flying behavior we observed in 
our dataset, we assume that the aircraft is 
Indicated airspeed (= 0 KIAS) taxiing when its groundspeed is between 0 and 
25 KIAS with a zero indicated airspeed. 


Takeoff Engine RPM (>2200 RPM) We have two types of takeoff: those that occur 
(Cirrus Design Corporation, after taxi, and touch-and-goes, where the 
1999) takeoff occurs right after touchdown. We 


define application of full power as the increase 
of engine RPM to over 80% of its maximum 
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Table 7: Simple Phases of Flight parameters, with values for the Cirrus SR20 (Cirrus 
Design Corporation, 1999) (continued) 


<-200 fpm) 


Altitude (<1000 ft above runway 
elevation) 


Phase of Flight Identifying Parameters Notes 
Altitude (<35 ft above the value. The aircraft transitions from takeoff to 
runway elevation) climb at 35 ft above the runway elevation, 
according to the definition of takeoff in Table 
2. 
Approach Altitude (constant decrease Approach is the last part of descent. We 


therefore add another constraint: approach 
starts 1000 ft above the runway elevation, as 
defined in Table 2. 


Landing (renamed 


Indicated airspeed (< Stall 


During the landing flare and touchdown, we 


(Cirrus Design Corporation, 


1999) 


Indicated airspeed (>Stall 
airspeed) (Cirrus Design 


Corporation, 1999) 


Altitude (< 400 ft AGL) 


Touchdown) Airspeed) (Cirrus Design assume that the indicated airspeed is between 
Corporation, 1999) 25 kts and 60 kts (Stall Airspeed for the Cirrus 
SR20). A series of negative vertical speeds will 
Altitude (constant decrease precede flare and touchdown, and the aircraft 
<—200 fpm for one minute) will also be descending in approach. 
= previous Descent considered 
Go-around Engine RPM (>2500 RPM) During a go-around, the pilot will apply full 


power to initiate a climb. Since the aircraft will 
not touch down during a go-around, the altitude 
has to remain above runway elevation. 


Using the parameters and values given in Table 7 for the Cirrus SR20 and for the Cessna 


C172, we were able to correctly identify these phases of flight in all 53 flights from Set A. 


The remainder of this thesis focuses on the climb, cruise, and descent phases. 
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On Figure 5, Figure 6, and Figure 7, we plotted the Altitude during flight versus time. The 


original altitude is plotted in black. The various simple phases of flight, presented in Table 


7, 


were added as mentioned in the legend. Flight #12 contains two Go-arounds that are well 


detected in Figure 7. As displayed in Figure 5 and Figure 6, Flights #1 and #9 do not contain 


any Go-arounds. These three graphs show that the simple phases are well-detected based 


on the parameter values presented in Table 7. 
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Figure 5: Simple phase of flight identification for Flight #1. Altitude is altitude above 
Mean Sea Level (MSL) 
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Figure 6: Simple phase of flight identification for Flight #9. Altitude is altitude above 
Mean Sea Level (MSL) 
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Figure 7: Simple phase of flight identification for Flight #12. Altitude is altitude above 
Mean Sea Level (MSL) 


The average misidentification rate from the simple phase of flight detection is 1.18% of all 
data points. Table 8 shows how the simple phases were misidentified. Since these phases 
are unambiguously defined by the values in the POH, we would expect that the error rate 
should be zero. Upon further investigation, we found that the identification made by the 


algorithms was correct in most cases, and our hand coding was incorrect. Most errors 
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occurred in the transition from taxi to takeoff, and from approach to touchdown. This 
finding is not surprising, since the hand coding involved mentally performing the 


inequalities in Table D.1 for all 53 flights. 


Table 8: Characteristics of misidentifications generated by the Simple phase of flight 
identification 


Identified Phase 


ny Standing Taxi Takeoff Approach Touchdown | Go-around 
ase 


Standing | } Comect | | 9.02% | 02% | 9.00% | 00% | 9.00% | 00% | 0.00% | 00% | 0.00% 00% 


Baad Ee = Beem oe 


The simple phase of flight identification requires the use of the Engine RPM, the Indicated 
Airspeed and Groundspeed parameters besides the barometric altitude. This approach is 
therefore not feasible for flight data recorded on devices such as smartphones (at least not 
without some type of adapter). Nevertheless, these phases can still be identified as a 


“block” of simple phases based on altitude. 


The remaining phases of flight, Climb, Cruise and Descent phases are the most difficult 
ones to assess. From our observations, one single phase tends to make the phase of flight 
identification difficult to assess automatically, followed by Climb and Descent: the Cruise 


phase. The high variability of parameters during Cruise blurs the borders with the Climb 


23 


and Descent phases and leads to a high error rate. In the next chapter we describe different 


categories of flight and criteria that may affect the phase of flight identification. 
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3. DEVELOPMENT OF IDENTIFICATION METHODS 


In this chapter we present the two methods developed for the phase of flight identification. 
Method | uses the change in altitude directly from the input data, whereas Method 2 uses 


smoothing and differentiation methods. 


3.1 Method 1: Altitude-based Identification 


The simplest way to detect climb, cruise, and descent phases is based on the change in 


altitude, as shown in Figure 8. 


Altitude 


Sec aon wal 


At= 30s 


Figure 8: Altitude-based Identification 
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To identity a Climb phase, we chose a gain of altitude of at least 100 feet over 30 seconds, 
which corresponds to a positive rate of climb of 200 fpm, as shown in Figure 8. This 
number represents a reasonable compromise between too high a rate of climb (which would 
miss slow climbs) and too low a rate of climb (which would classify slow increases of 
altitude during cruise as climbs). FAR Part 23 regulations define climb as 300 fpm or more, 
however, we found that in our data sets pilots frequently ascended (or descended) at a lower 
rate. The 30s time window ensures that momentary variations of altitude generated by 
turbulence do not get identified as a change of phase. Defining climb in terms of altitude 
change over a time period, rather than directly using the recorded vertical flight speed 


because the vertical flight speed tends to be very noisy, in contrast to the altitude parameter. 


The descent phase identification is simply the opposite of climb, and cruise is then 
identified as having both too slow climb and too slow descent (note that this algorithm 
assumes the simple phases are already identified, otherwise taxi could be identified as 


cruise, for example). 


Figure 9, Figure 10, and Figure 11 show examples of the application of Method 1 for three 
flights. The “simple” phases, identified in Section 2.4 and described in Table 7, are 
displayed in orange. The climb, cruise, and descent phases are identified as described in 
Figure 8. The method incorrectly identifies some parts of climbs as cruise (e.g., in Figure 
9 at 1478 s seconds, in Figure 10 at 8261 s, and in Figure 11 at 5560 s). Also, some parts 
of cruise are incorrectly identified as climb (e.g., in Figure 9 at 2218 s and in Figure 10 at 
9667 s) or as descent (e.g., in Figure 9 at 8159 s, in Figure 10 at 3938 s, and in Figure 11 


at 2068 s). 
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Figure 9: Altitude-based Identification for Flight #1. Altitude is altitude above Mean Sea 
Level (MSL) 
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Figure 10: Altitude-based Identification for Flight #9. Altitude is altitude above Mean 
Sea Level (MSL) 
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Figure 11: Altitude-based Identification for Flight #12. Altitude is altitude above Mean 
Sea Level (MSL) 


These misidentifications happen because the algorithm is sensitive to small variations in 
altitude. We found that attempting to improve identification by adjusting the parameters 
did not reduce the error rate. For instance, reducing the threshold to 100 fpm instead of 
200 fpm reduces the spurious cruise identifications, but also risks misidentifying climb and 


descent as cruise. 
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Figure 12: Flights sorted by decreasing proportions of misidentifications, using Method 
1, 
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These three figures suggest that the algorithm works well when the cruise phases are 
relatively smooth and climbs and descents are continuous (Figure 12), but less well when 
the cruise phase is choppy and climbs and descents are interrupted (e.g., Figure 9, 10). 
Figure 12 displays all results using the Altitude-Based Identification on Set A. There is a 
wide variation in flight performance—flight 9 has the second highest error rate, while the 
relative smooth flight 12 has one of the lowest error rates. The error rate is highest for those 
flights with significant altitude variation. This result is not surprising, given that the 
identification is based on altitude variation. However, it does suggest an alternative better 
approach—first remove the non-meaningful altitude variation. Therefore we developed a 


second method based on smoothing and then assessing the flight data, as described next. 


3.2. Method 2: Smoothing and Differentiation 


Our second method attempts to address the sensitivity problem by smoothing the data to 
remove minor short duration variations in altitude. We use three methods to smooth the 
data, and two methods to subsequently measure the change in altitude (also called 


differentiation). 


3.2.1 Smoothing characteristics 


Two of our smoothing methods use the principle of a low-pass filter. The goal of the 
smoothing step is to remove altitude variation that is not indicative of an actual phase 


change, while retaining variation that is meaningful, as shown in Figure 13. Thus, we want 
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to remove choppiness in cruise, while retaining variation such as patterns. The flight shown 


in Figure 10 has both of these features. 


Altitude Altitude’ 


= 


Time Time 


Figure 13: Example of a low-pass filter application 


We use three methods to smooth the data, Down-Sampling, Moving Average, and Local 
Regression. The simplest method is to “down-sample” the data. Down-Sampling reduces 
the variation of altitude during flight. This method may lose information about patterns, as 
the low frequencies are treated in the same way as the high ones. Figure 14 shows the result 
of taking every n = 100 seconds for Flight #12. The blue line represents the actual altitude 
as recorded by the FDR and the red line shows the smoothed altitude. As expected, small 
variations in altitude have been damped, but there is a corresponding loss of information 
that could lead to misidentification of phases of flight, such as at 5010 s (when the pilot 
performed a touch-and-go). After this point, the red curve shows a positive slope whereas 
the actual recorded altitude is still decreasing. Because of this downside, we had to try other 
methods of smoothing the altitude curve. In Section 3.3 we assess the performance of this 


method for different values of n. 
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Figure 14: Altitude curve smoothing using the Down-sampling method (n = 100 s) for 
Flight #12. Altitude is altitude above Mean Sea Level (MSL) 


Our second approach to smoothing is based on the calculation of a moving average Over m 
points, as shown in Figure 15. The Moving Average is a low-pass filter that is symmetrical 
(or centered), meaning that all points in the calculation are equally weighted (Karl, 2012). 
The Moving Average deals better with go-arounds and touch-and-goes than the down- 
sampling method, but still misses the peaks and troughs such as at 7725 s. In Section 3.3 


we assess the performance of this method for different values of m. 
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Figure 15: Altitude curve smoothing using the Moving Average method (with m= 100 s 
span). Altitude is altitude above Mean Sea Level (MSL) 


Our third approach is based on a local regression method, consisting of a weighted linear 
least squares and a second degree polynomial model. Local Regression is well-suited to 
our data because we have no outliers. Like the Moving Average smoothing method, Local 
Regression is a low-pass filter but it also gives more weight to small changes in altitude— 


in other words it tracks the altitude more closely. The weights w; are given by: 


3 

| 3 (2) 
The variable x is the predictor value associated with the response value to be smoothed. 
The points x; are the nearest neighbors of x as defined by the span, and d(x) is the distance 
along the abscissa from x to the most distant predictor value within the span. This weighting 


applies more weight to points close to the average altitude and less weight to points further 


from the average altitude. In other words, momentary jumps in altitude that are larger than 
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average over the regression window do not have significant influence on the average 


altitude. 


An example of using local regression is shown on Figure 16. This method deals the best 
with peaks and troughs, but if the regression is overfitted we return to the problem of 
spurious identifications. In Section 3.3 we assess the performance of this method for 


different values of p, the time span over which the local regression is performed. 
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Figure 16: Altitude curve smoothing using the Local Regression method (with p = 200 s 
span). Altitude is altitude above Mean Sea Level (MSL) 


The next chapter describes the second step of Method 2 that follows smoothing methods: 


the differentiation. 
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3.2.2 Differentiation characteristics 
We use two approaches to assess the change in altitude. In both cases, we impose a 1500 ft 
AGL floor, below which we use lower thresholds for cruise and climb, to account for 
patterns. Also, below 500 ft AGL, we define cruise as being impossible; the only possible 


phases below 500 ft are the simple phases, or climb. 


Our first method is based on the rate of climb over a defined time window concept 
previously introduced in Section 3.1. Here, we apply the same idea, but on smoothed data. 
As shown in Figure 17 and Figure 18, the time window is constant for moving average and 
Local Regression methods (At = 30 s), and equal to the Down-Sampling window n in the 


Down-Sampling method. 
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Figure 17: Rate of Climb Detection Method (for Down-Sampling), for Climb (a), Cruise 


(b), and Descent (c) phases 
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Figure 18: Rate of Climb Detection Method (for Moving Average and Local Regression), 
for Climb (a), Cruise (b), and Descent (c) phases 


Our second approach is based on the change in altitude between adjacent stationary points 


on the smoothed curve. We identify these points in the code by comparing adjacent points 
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on the smoothed curve and noting when the trend changes from increasing to decreasing, 
and vice versa. Figure 19 illustrates the concept of Altitude Difference for Climb (a), Cruise 


(b), and Descent (c) phases. 
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Figure 19: Altitude Difference Detection Method 
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Figure 19 (a), (b), and (c) show the stationary points as grey circles. We define an altitude 
difference between adjacent stationary points of more than Ah = 1000 ft as a climb and less 
than Ah = —1000 ft as a descent for an altitude greater than 1500 ft AGL. Smaller changes 
are assumed to be cruise. This value is based on our analysis of the flight data. Smaller 
variations are quite common during cruise segments, while a larger limit than 1000 ft 


would result in missed climb and descent detections. 


Figure 20, Figure 21, and Figure 22 show the resulting phase identifications for Flight #12. 
They show that the results from the differentiation step depend on how the altitude was 
first smoothed. In particular, down-sampling resulted in a more peaked flight profile than 
the other two methods. For example, in Figure 20, which shows the results of Down- 
Sampling followed by Altitude Difference, the identified cruise phase beginning at 9101 s 
is shorter than our manual phase identification (see Figure 2 (a)), which means that cruise- 


specific safety events may be missed. 
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Figure 20: Down-sampling (7 = 100 s), Altitude difference. Altitude is altitude above 
Mean Sea Level (MSL) 
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Figure 21: Moving Average (with m= 100s), Altitude difference. Altitude is altitude 
above Mean Sea Level (MSL) 
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Figure 22: Local Regression (with p = 200 s), Altitude difference. Altitude is altitude 
above Mean Sea Level (MSL) 
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Figure 23: Concept of Altitude Difference. 


While this method works fairly well and can detect small changes in altitude, it does not 
consider the time period over which the climb takes place, as shown in Figure 23. Therefore 
this method can misidentify slow climbs as climbs and slow descents as descents. From a 
safety event identification point of view, these slow changes in altitude should be identified 
as cruise, since the altitude varies in General Aviation, and a flight with a small slope is 


closer to a cruise phase in terms of flight parameters. 
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Next, we discuss the performance of the six combinations of smoothing and altitude 


detection. 


3.2.3. Examples of results and discussion 
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Figure 24: Down-sampling, altitude difference. n = 50 s for (a), (c) and (e) and n= 100s 
for (b), (d), and (f). Altitude is altitude above Mean Sea Level (MSL) 


Figure 24 shows the results of combining down-sampling and altitude difference for two 
values of n on three different flights. As indicated by the red circles, some of the climb and 
descent phases can spill over into the cruise phases, so that it looks like climb (or descent) 


continued for longer than it actually did. The appropriate value of n also depends on the 
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flight characteristics—for the flight with relatively smooth cruise phases shown in the top 
row, down-sampling more (7 = 100 s, (b)) works better, but when the flight involves a lot 
of variation, as in the second row, down-sampling less (n= 50 s, (c)) works better. 
Decreasing the value of 1 increases the accuracy and reduces the amount of spills, but it 


also increases spurious and incorrect identifications. Therefore the methods must adapt 


based on the flight characteristics. 
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Figure 25: Down-sampling, rate of climb. n = 50 s for (a), (c), and (e) and n = 100 s for 
(b), (d), and (f). Altitude is altitude above Mean Sea Level (MSL) 
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Figure 25 shows the results of combining down-sampling and rate of climb for two values 
of n on three different flights. This combination of methods is better than the previous 
method at identifying the final cruise segment in the relatively regular flight (top row). 
However, for the more varied flight (second row), this combination misidentifies some of 
the touch-and-goes as cruise, and some cruise segments as climb. When n increases (right 
column), it tends to add more misidentifications especially for cases (c) and (d), which both 


involved a lot of patterns around the airfield. 
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Figure 26: Moving average, altitude difference. m = 100 s for (a), (c), and (e), and m = 
200 s for (b), (d), and (f). Altitude is altitude above Mean Sea Level (MSL) 
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Figure 26 shows the results of combining moving average and altitude difference for two 
values of m on three different flights. The left column shows the results of using a smaller 
window, and the right column shows the results of using a larger window. The larger 
window is better when the cruise phase is characterized by a large variation of altitude (last 
row), and the smaller window is better when the flight contains several patterns around the 


airfield (second row). 
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Figure 27: Moving average, rate of climb. m= 100 s for (a), (c), and (e), and m = 200 s 
for (b), (d), and (f). Altitude is altitude above Mean Sea Level (MSL) 
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Figure 27 shows the results of combining moving average smoothing and rate of climb for 
two values of m on three different flights. This combination of methods does not work as 
well as using the altitude difference method on our sample flights. In the first row, several 
points are misidentified as cruise, while in the third row, several cruise points are 


misidentified as climb/descent. 


g 


Climb phase 
——— Cruise phase 
——— Descent phase 
= __ Sienple phases of fight 


2 


g 


Altitude (ft) 


gE 


0 2000 4000 6000 8000 10000 12¢ 0 2000 4000 8000 10000 12000 


6000 
Time (s) 


6000 
Time (s) 


Figure 28: Local regression, altitude difference. p = 100 s for (a), (c), and (e), and p = 
200 s for (b), (d), and (f). Altitude is altitude above Mean Sea Level (MSL) 


Figure 28 shows the results of combining local regression smoothing and altitude 


difference for two values of p on three different flights. When the local regression window 
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is smaller (left hand column), some climbs or descents are misidentified as cruise. This 
error is particularly noticeable on (e), where the descent starting at 3971 s is punctuated by 
several short level portions. The larger regression window (right column) combined with 


altitude difference provides the best results for our sample flights so far. 
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Figure 29: Local regression, rate of climb. p = 100 s for (a), (c), and (e), and p = 200 s for 
(b), (d), and (f). Altitude is altitude above Mean Sea Level (MSL) 


Figure 29 shows the results of combining local regression smoothing and rate of climb for 


two values of p on three different flights. As with altitude difference, the smaller regression 
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window results in some spurious cruise identifications (left hand column). The larger 
window results in some periods of rapid altitude change being identified as cruise (right 
hand column), especially for the second row (case (d)). Flight #9 (second row) contains the 
most complex variation of altitude of all flights available to us, and the circled segment 
was difficult to interpret. Either we consider that each variation has to be identified as a 
succession of climb and descent phases, or the overall segment is just cruise since the 


amplitude is constant and the duration of this segment is short. We chose the second option. 


In the next chapter we assess the performance of two parameter values for each variants of 


Method 2 and we gave a comparison with Method 1. 


3.3. Performance Analysis for Method 1 and Method 2 


The algorithms’ performance can be characterized using qualitative or quantitative 
methods, or a combination of both methods. For example, qualitative metrics include ease 
of use, and quantitative metrics include the algorithm’s speed of execution. In our initial 
evaluation, we focus on the proportion of misidentifications generated by each method on 
each of the 53 flights in our Set A, using Equation (1) from Section 2.1.2. The 


misidentification rates shown here are for Climb, Cruise, and Descent. 
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Figure 30: Flights sorted by decreasing proportions of misidentifications in cruise, climb, 
and descent. 


Figure 30 shows results from the performance measurement on our 53 flights (Set A), using 
Method | (as in Figure 12 from Chapter 2) and the six variations of Method 2. We tested 
each method with two different values for each characteristic parameter (n = 50 s and n = 
100 s, m = 100 s and m = 200 s, and p = 100 s and p = 200 s) and selected the values that 
resulted in the fewest total errors across our 53 flights. The flights are sorted from those 
with the most errors to those with the fewest errors. For each flight, the colors represent 
the different methods, and the percentage is the percentage of points that were incorrectly 
identified as defined by Equation (1). The figure shows that the algorithm performance 
depends on the characteristics of the flight. Flight #9 was the most difficult to assess 
automatically. This flight (see Figure 2 (b)) involves two very choppy cruise phases (cruise 
phases with a large variation of altitude). In contrast, Flight #8 had few errors, regardless 
of the method. This flight contains a more constant altitude for cruise segments and no 


altitude peaks as in Figure 2 (b). 
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In Table 9, we listed the results of our tests with the average of misidentifications and the 
Interquartile Range (or JOR). The JOR is the difference between the 3" Quartile and the 1** 
Quartile (2™ Quartile is the median). The IQR is less sensitive to outliers than the standard 


deviation and is therefore a better measure of the average variation in error. 


As expected, Method 1 (Altitude-Based Identification) results in the most errors on the 53 
flights on average, as shown in Table 9. It results in the highest number of errors on each 


of the flights. 


Among the Method 2 approaches, the combination of Down-sampling and Rate of Climb 
performed the worst on 17 of the flights. All of these flights show unstable cruise segments 
in terms of altitude but they also contain multiple patterns which cause a part of the 
misidentifications. Therefore this particular method is not well-suited for these flights. For 
12 of the flights such as #4, #10, #24, #28, and #40, the highest proportion of 
misidentifications was caused by Moving Average followed by Altitude Difference, 
because these flights contain both short and long Cruise segments (especially Flight #4). 
Hence the Moving Average method is not appropriate for these sorts of flight. Overall, the 
lowest total errors are obtained using Local Regression and Altitude Difference. This 
method had the lowest number of errors on 25 flights. The only flights where it performed 
worse contain either the highest number of patterns, or the most unstable altitude during 


cruise phase. 
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Table 9: Average of proportion of misidentification across climb, cruise, and descent for 
the seven methods, with parameters as shown. 


Method Average of proportion of Interquartile Range (IQR) 
misidentification 

Altitude-Based Identification 21.99% 7.33% 

(Method 1) 

Down-sampling, Rate of Climb 8.85% 3.89% 

(n= 50s) 

Down-sampling, Altitude 8.65% 4.88% 

Difference (n = 50 s) 

Moving Average, Altitude 8.61% 4.77% 

Difference (m= 100 s) 

Local Regression, Rate of Climb 8.51% 5.03% 

(p = 200 s) 

Moving Average, Rate of Climb 8.04% 4.54% 

(m= 100s) 

Local Regression, Altitude 7.63% 2.55% 

Difference (p = 100 s) 


Table 10 and Table 11 summarize the results. Based on our 53 flights (Set A), Moving 


Average followed by Altitude Difference well assesses flight that do not contain traffic 


patterns, such as Flights #3 and #16, as shown in Table 10. Moving Average followed by 


Rate of Climb (see Table 11) leads to better results for flights that contain multiple traffic 


patterns, for instance Flights #14 and #37. 


Table 10: Average of proportion of misidentification for the six combinations of Method 
2, for flights containing traffic patterns 


WITH Traffic 
patterns Altitude difference Rate of climb 
Down-sampling 9.92% 10.46% 
Moving average 10.39% 9.40% 
Local regression 9.83% 10.45% 
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Table 10 suggests that Moving Average and Rate of Climb are best for traffic patterns. The 
use of Moving average as smoothing method led to fewer spurious points than Local 
Regression, which is the best method on average found as shown in Table 9. This 
observation means that when we consider traffic patterns and other flight segments 
separately, we do not need to apply weights on the flight data. As explained in Section 
3.2.2, the Rate of climb considers the amount of time during which a variation of altitude 
is observed. During traffic patterns, the rate of climb during Climb, Cruise and Descent 
phases does not vary as much as during the other types of flight segments for those phases 
respectively. Then the identification has to be thought in terms of slope during traffic 
patterns, which explains that the Rate of Climb led to better results than Altitude 


Difference, which does not consider a time span. 


Table 11: Average of proportion of misidentification for the six combinations of Method 
2, for flights without traffic patterns 


Panna sem Altitude difference Rate of climb 
Down-sampling 8.24% 8.32% 
Moving average 7.06% TAS% 
Local regression 8.03% 7.88% 


In turn, Table 11 suggests that Moving Average and Altitude Difference are best for traffic 
patterns. In contrast to pattern flight, the Altitude Difference Method led to better results 


because of the large amount of different slopes used by the pilots during Climb, Cruise and 


51 


Descent phases. Since the slope does not characterize non-pattern flights as well as 


variation of altitude anymore, the use of Rate of Climb generated more misidentifications. 


In summary, performance is affected by at least three factors: (1) the smoothing and altitude 
change method used, (2) the parameter values used by the smoothing step, and (3) whether 


or not the flight has patterns. 


The next chapter describes a process to determine the best methods for a given set of flights. 
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4 DETERMINATION OF BEST METHOD 


Chapter 3 presented a “toolbox” of methods to identify climb, cruise, and descent. We also 
showed that the best method, as well as the best parameters for each method, depend on 
the flight characteristics. In particular, we found that Moving Average / Rate of Climb is 
more appropriate for flights with traffic patterns, while Moving Average / Altitude 
Difference is more appropriate for flights without patterns. In this chapter, we develop an 


algorithm to automatically select the best method for each flight. 
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4.1 Description of entire phase identification process 
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Figure 31: Diagram showing the entire phase identification process 


The overall algorithm is divided into two main steps, as shown in Figure 31. Step | is the 
process for identifying the appropriate methods for a particular flight sample. Step | begins 
by dividing the flight sample into flights with and without flight samples, as described in 
Section 4.2. Next, for both sets of flights, it is necessary to determine the appropriate 
methods and parameters, as described in Section 4.3. The selection of methods and 
parameters requires a set of hand-coded flights. Since handcoding is tedious and time- 
consuming, we developed an algorithm to determine the minimum number of hand-coded 
flights needed to identify the appropriate method and parameters, as discussed in Section 


4.4. Section 4.5 discusses the performance and limitations of the resulting approach. 
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Figure 32: Description of the combination of methods depending on flight characteristics 


In Step 2 the selected best are applied to the entire flight sample, as shown in Figure 32. 
Each flight sample is divided into pattern and non-pattern segments. Then, the best method 


for each step is applied. 


4.2 Procedure to detect traffic patterns 


Thanks to the simple phase of flight identification, Touchdown and Go-around altitudes 
are recorded. Traffic patterns are defined by two consecutive Go-arounds or Touchdown 
occurring within a limited time span. In all of our flights, each traffic pattern always lasts 


less than 600 seconds, so an interval of at least 600 seconds between two Touchdown/Go- 


55 


around points is needed to detect a traffic pattern. Therefore, to be sure to detect all traffic 


patterns, we set the threshold to 700 seconds as duration of a single traffic pattern. 


4.3 Procedure to find adequate method 

This section describes the procedure to find the best method for a given set of flights. To 
find the best parameter values and methods, we test each combination of smoothing method 
and altitude change detection, and for each combination we vary the corresponding 
smoothing parameter in | second increments from | to 300 s. Next, we find the method 
that results in the lowest combined average error and variation in error. Our method is 
based on the average error as defined by Equation (1) and the variation of that error, given 
by its interquartile range (IQR). Figure 33 shows an example of these values for the case 
of Moving Average and Rate of Climb. 
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Figure 33: Average and /QR of error rates corresponding to Moving Average/Rate of 
Climb for Flights with Traffic patterns 
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The algorithm selects the lowest average (Miowest average) and the lowest Interquartile Range 
(Miowest 1OR). The corresponding parameter values, Miowest average ANd Miowest 1OR, are Not 


necessarily the same). 


Then the algorithm computes the best parameter value as the average of these two values 


(yellow cross in Figure 33): 


= Miowest average a Miowest IQR 3) 
Mpest = ) ( 


Where m is the parameter value for Moving Average/Rate of Climb in this example. 


Several cases are possible: if the computed mpes; is an integer, then this mes: is the best 
parameter value for this particular method. If not, we select oes; as the nearest integer in 


the direction of Mlowest average: 
Next, we calculate the sum of the average error and IQR corresponding to Mpest: 


Ymethod = IQR(Mbpest) a Average(Mbpest) (4) 


This combination of average error and variation in error ensures that methods that may 


have a low average error but some high errors are given less prominence. 
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Figure 34: Illustration of the procedure to find the best method 


We apply this procedure to the error rate for all six methods, as shown in Figure 34. Finally, 
we find the method corresponding to the lowest Y. The best method is then this method, 


with the corresponding parameter (pes: in the case of local regression). 


4.4 Computation of minimum number of flights needed 


We developed a prototype procedure to determine the minimum numbers respectively for 
flights with and without traffic patterns, as shown in Figure 35. We begin with a set of 30 
hand coded flights, for both patterns and non-patterns. Based on our analysis with both Set 
A and Set B, it is usually not possible to select the best method with a smaller set. Next, 


we apply the algorithm shown in Figure 35 to progressively add one flight at a time. The 
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algorithm is based on the idea that if we obtain the same best method for some number of 


consecutive steps, that method is the best method. The current implementation requires two 


consecutive matching results. 


Method = Mref 
Error rate = Eref 


YES 


Figure 35: Flow chart defining the process to find the minimum number of flights 
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Figures 36 to 39 show examples of cases encountered while following the flowchart 
presented in Figure 35. In the case of Figure 36, Nref was found equal to 38, so the 
minimum number to choose is either (Nref— 3) = 35 flights, or (Nref— 2) = 36 flights. One 
of these two possibilities will be selected based on whether 37 (= Nref - 1) flights has 
already been tested. If we find the same best method (Mref) and a constant error rate with 
35 flights (Figure 37), then the minimum number to choose is (Nref — 3) = 35 flights. If 
not, we have to test with 37 flights. If in this case we find the same Mref and a constant 
error rate, then the minimum number of flights to choose is (Nref— 2) = 36 flights (Figure 
38). If there is no repetition of Mref and error rate with (Nref — 3) and (Nref — 1) flights 
(Figure 39), we have to test with (Nref+ 2) flights and go back to the previous loop as 


shown in Figure 35. 
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Figure 36: Illustration of two constant error rates found consecutively (Nref = 38 flights) 
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Figure 37: Illustration of two constant error rates found consecutively (with Nref- 3 
flights) 
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Figure 38: Illustration of two constant error rates found consecutively (with Nref - 2 
flights) 
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Figure 39: Illustration of inconstant error rates 
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4.5 Results and Limitations 


We applied Step | to Set B. Using the minimum flight selection method, we found that 30 
flights are required to represent a global trend for traffic patterns, and 35 flights are needed 
for non-pattern flights. For Traffic patterns, we found that the best method is Moving 
Average (m = 88 s) followed by Rate of Climb. For Non-traffic patterns, the best method 


is Moving Average (sm = 41 s) followed by Altitude Difference. 


Next, we applied these methods to Set A. The overall error rate was 6.89%, with JOR = 
2.72%, as compared to the best result in Section 3.3, where we obtained an average error 


rate of 7.63%. 
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Figure 40: Flights sorted by decreasing proportions of misidentifications. 


Figure 40 displays all the results obtained using the combination of the best methods for 
corresponding flight segments, and the best method found earlier (in Section 3.3) on 
average (Local Regression (p = 100 s)/Altitude Difference). In each case, the new best 
method yielded better results. Table D.1 in Appendix D shows the individual error rates 


for each flight. 
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Figure 41, Figure 42 and Figure 43 display the results for the three flights presented in the 
previous chapters for the Simple phase of flight identification (Section 2.4), Method 1 
(Section 3.1) and Method 2 results (Section 3.2.3) and the Hand-coded phase of flight 


identification (presented in Section 2.1.2). 
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Figure 41: Combination of methods for Flight #1. Altitude is altitude above Mean Sea 
Level (MSL) 


Figure 41 shows the phase of flight identification for Flight #1, using the tailored method. 
As a reminder, the best method found for traffic patterns is the Moving Average (m = 
88 s)/Rate of Climb, and for the rest of flight (except for Simple phases, as described in 
Section 2.3), the best method is Moving Average (m = 41 s)/Altitude Difference. Since 
there is no traffic pattern for Flight #1, only Moving Average (m = 41 s)/Altitude 
Difference was used to detect Climb, Cruise and Descent phases. The Simple phase of 
flight identification completed the process for Standing, Taxi, Takeoff, Approach, 
Touchdown phases (Go-arounds are not present in this case). There was 6.36% of 


misidentifications instead of 7.21% using Local Regression (p = 100 s)/Altitude 
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Difference, which is the best method on average found in Section 4.1. Still in Figure 41, 
spurious points remain such as at 6518 s, where Cruise phase is detected. At this time, the 
aircraft is still considered as maneuvering a Descent phase, as defined in Figure 2 (c), right 
before starting an Approach phase. Otherwise the phase of flight identification using the 
combination of methods leads to fewer misidentifications, compared to the results in 


Section 3.2.3. 
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Figure 42: Combination of methods for Flight #9. Altitude is altitude above Mean Sea 
Level (MSL) 


In contrast to Flight #1 in Figure 41, Figure 42 and Figure 43, which respectively show 
Flights #9 and #12, contain traffic patterns. Therefore these flights also used the best 
method found for traffic patterns (Moving Average (m = 88 s)/Rate of Climb). As listed in 
Table D.1, 20.82% of all points are misidentified for Flight #9, as opposed to 22.97% using 


the Local Regression (p = 100 s)/Altitude Difference. This misidentification rate is still 
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large compared to other flights but this particular flight contains the largest number of 


maneuvers of all flights available to us, as described in Section 3.3. 
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Figure 43: Combination of methods for Flight #12. Altitude is altitude above Mean Sea 
Level (MSL) 


Figure 43 displays the results for Flight #12 using the tailored method. This plot gets closer 
to the ideal phase of flight identification in Figure 2 (a), but some data points remain 
misidentified such as at 6557 s, where Cruise phase is identified instead of Descent 
preceding an Approach phase. Indeed, 5.98% of all points are still misidentified instead of 
7.60% using the best method on average found in Section 3.3, as listed in Table D.1 in 


Appendix D. 
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Table 12: Characteristics of misidentifications generated by the combination of methods 


Identified Phase 


Table 12 shows that the larger misidentification rates involve Cruise phases. We can 


demonstrate that the transition between Climb and Cruise is difficult to assess in General 
Aviation, as well as the transition between Cruise and Descent. However, 0.03% of points 
were identified as Descent instead of Climb. These misidentifications tended to occur 


during climbs when the pilot momentarily stopped climbing. 


Finally, we wanted to determine whether short flights would have more errors than long 
flights, or vice versa. Since short flights spend a larger proportion of time in transition 
phases like climb and descent, they may have more opportunity for error. Conversely, long 
flights offer more opportunity for pilots to transition between different cruise levels, or 
perform other maneuvers, so these flights could have more errors. To determine whether 


there is a relationship between flight length and error rate, we performed a t-test. 
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Figure 44: Repartition of flights based on duration 


Figure 44 displays the error rates depending on the flight duration in our sets. This suggests 
that the error rate and its deviation do not vary depending on how long the flight lasts. We 


conduct a t-test between the largest (M2) and the lowest (M3) averages. 


The null hypothesis is: 


Ho: “Difference between averages is insignificant (~ 0 with a risk of a = 5%)” 


The difference between the two averages is: 


M2 - M3 = 7.705 - 6.470 = 1.235 (5) 


The corresponding standard deviation is: 
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lox? o32 {1.702 1.73? 
= j24 3-2 + ——=0:573 (6) 
Pm2-M3) ~ [ae hy 15 22 


The corresponding t-value is the difference between M2 and M3 divided by the previous 


standard deviation. 


putes aie 
“051s ) 


The degrees of freedom are given by: (n2— 1) + (n3— 1) =35 


DOF = (n,- 1) + (n3- 1) = 35 8) 


And the p-value is: 


p-value = 0.0377 < 0.05 = a (risk) 
(9) 


Since the p-value is less than a, the null hypothesis is accepted and the difference between 
the largest and the lowest averages is insignificant at the 95% level. 


Hence the duration of the flight does not affect the misidentification rates and the phase of 


flight identification in our sets. 
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5 FUTURE WORK 


We have developed a method to automatically identify the phases of flight in General 


Aviation. Here, we discuss potential improvements around several themes. 


5.1 Additional Geographic Data 


To ensure pilot confidentiality, our data was scrubbed of latitude and longitude parameters. 
Datasets that include these parameters would allow us to improve our phase of flight, and 
hence safety event, identification. For example, combining geographic data with weather 
data would allow us to infer whether a flight was conducted under visual or instrument 


flights rules. 


5.2. Smartphone Data 


Smartphones record limited parameters and at a lower accuracy than FDRs like the 
Garmin 1000. We may nevertheless be able to extract useful information from these 
devices. While such data likely will not allow us to distinguish between taxi and 


takeoff phases, the climb/cruise/identification is based on altitude and can therefore 


70 


be accomplished using smartphone data. The accuracy of such identifications should 


be investigated. 


5.3. Minimum Number of Flights 


The procedure that helps find the mintmum number of flights might have to be adapted for 
future research, in order to reduce the time of computation and to complete Step 1 more 
efficiently. The current algorithm requires just two consecutive identical results. Future 
work should investigate how many consecutive identical results are required to ensure 


robust findings. 


5.4 Hand-Coding GUI 


As hand-coding can be a long process, we suggest the development and the use of a 
Graphical User Interface (GUI) that would help defining the Ideal phase of flight 
Identification. This process would not be as fast as the Phase of flight identification used 
in Step 2 in Figure 31, which aims to reduce the run time as much as possible. However, 
hand-coding thanks to the GUI would be used as a model to compare results to find the 
best corresponding method, which belongs to Step | from Figure 31. More intuitive 
features would help the user save time during this step. In this case, after the user uploads 
a flight (Figure C.1 in Appendix C), the Simple phase of flight identification can be applied 


(Figure C.2). Then the three remaining flight phases (Climb, Cruise, and Descent) may be 
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added manually as shown in Figure C.3 and the used can end the process after this last step 


(Figure C.4). 


5.5 Runtime 


Our phase of flight identification takes 30 seconds on average to run per flight, once we 
have determined what methods we have to use to get the best results. The entire process of 
phase of flight identification (Step 1 and Step 2) is important: Step 2 applies the algorithms 
and returns the output with the identified phases, and Step | is essential to reduce the error 


rate as much as possible by tailoring the methods. 


5.6 Acceptable Misidentification Rate 


The overall misidentification rate of the current algorithm is about 7%. Whether or not this 
rate is acceptable depends on a number of factors, which fall under the general theme of 
simultaneously managing false alarms and missed detections. In other work in our group, 
we are investigating how the rate of false alarms and missed identifications might affect 
pilot use of tools based on safety event detection. One particular feature that could be 
immediately useful is an indication of confidence on each phase identification. Such a 


confidence level could then be incorporated into the ensuing safety event detection. 


ee 


5.7 Additional Aircraft and Avionics Types 


We also have to handle additional types of aircraft other than Cirrus SR20 and Cessna 
C172 to apply our algorithms and the safety event identification to a larger dataset. 
Additional regions and airports will be added to our entire process of phase of flight 


identification. 


We also tested Garmin G1000 only, so a next step would be to broaden the range of devices 


to Avidyne avionics for instance. 


5.8 Generic Aircraft 


The current algorithm is based on the idea that parameters are set for each specific aircraft 
type. Where the aircraft type is not specified, it would be useful to have a generic definition 


that ensures an acceptable error rate. 


5.9 Additional Tuning 


Some parameters such as the pattern cutoff (700 s) are currently hard-coded. Future work 


will add a feature to allow the user to modify these parameters. 
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APPENDIX A: USER MANUAL 


1) Automatic rough identification of Traffic Pattern vs Non Traffic Pattern files 


Step (2): Can be processed more than once with results 
from Step (1) 


Step (1): Needs to be processed once 


Identifies 


= phases of = 


traffic patterns) 
-Finds minimum 
number of flights l 


pas =- -s==- 


CJ Excel spreadsheet (*x\sx file) 
() Excel spreadsheet (*csv file) 
a) External influence 


Describes 
flights 
content 


Figure A.1: Diagram showing how the whole process is built, Part | 


Use the corresponding Matlab script to determine which flights contain traffic patterns only 


and which do not contain any. 
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2) Manual Identification of Phases of Flight (“find Nref’) and Best Methods (‘find 


Mref’) 


Start with 30 hand-coded flights for both flights containing traffic patterns and non-traffic 
patterns. Use corresponding Matlab files that determine the best method for this number 


(labeled in red on Figure A.2). 


Step (1): Needs to be processed once Step (2): Can be processed more than once with results 


from Step (1) 


Flight sample 


Flights 
containing J 
= patterns) 
pains -Finds minimum Ar Output: 
3 Flight sample 
map| rset [mp | wines 


flight 


identification 
added 


without any im traffic patterns) 


-Finds minimum 
number of flights 


; Probable influence of 
Describes Geography/Topology 
flights 


Excel spreadsheet (*xIsx file) 


Excel spreadsheet (*csv file) 


External influence 


content 


Figure A.2: Diagram showing how the whole process is built, Part 2 


Hand-coding process: 


Write the Phase code in column 78, from third row with Header (example: "Phase code"), 


using the following rules: 


2 = Standing phase. Both Groundspeed and IAS are zero. 
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3 = Taxi phase. Groundspeed is not equal to zero, but IAS remains null. 


4 = Takeoff phase. From the point where both Groundspeed and IAS are not null anymore, 


to 35ft above ground level. 


5 = Climb phase. Use plots to set limits. 


6 = Cruise phase. Use plots to set limits. 


7 = Descent phase. Use plots to set limits. 


8 = Approach phase. From 1000 ft above ground level to 35 ft above ground level. 


9 = Touchdown phase. From 35 ft above ground level until IAS becomes zero again. 


Groundspeed will remain positive, so it will be then a Taxi phase, etc. 


10 = Go-around phase. Use plots to set corresponding point (Local minimum has to remain 


above ground level). 


Discard the mixed flights, which contain both traffic patterns and longer flight segments. 


Keep hand-coding as in Step 2), by adding 2 flights at a time for both flights with and 


without any traffic patterns. 


Run the two Matlab scripts with this increment of 2 flights again, to find the minimum 


number of flights needed. 


Once the same method is found several times in a row, the best method is best as well as 


the minimum of flights required. 


78 


Method = Mref 
Error rate = Eref 


YES 


Figure A.3: Flow chart defining the process to find the minimum number of flights 


Use Figure A.3 as a procedure to determine the minimum number of flights required to 


represent the global trend. 


Step | from Figure A.2 is now completed. The best methods for both types of flight 


segments (traffic patterns and non-traffic patterns) are now found as well as the minimum 
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number of flights required. Keep these data in order to identify phases of flight for flights 


recorded in a same region. 


3) Load Flights to assign phases of flight 


Copy flights to specified folder "SAMPLES". 


Step (2): Can be processed more than once with results 
from Step (1) 


Step (1): Needs to be processed once 


I 1] method (traffic 


= patterns) 


-Finds minimum 


Identifies 
a ep phases of => 
| flight 


nae traffic patterns) 
-Finds minimum 
1] number of flights I 


Excel spreadsheet (*xisx file) 


Excel spreadsheet (*csv file) 


Describes 
flights 
content 


External influence 


Figure A.4: Diagram showing how the whole process is built, Part 3 


Outputs are in folder "MAIN_folder". Their name contains the original flights one. 
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: MATLAB CODE 


APPENDIX B 


not 


or 


contain traffic patterns 


that 


Matlab script to detect flights 


B.1 


(Pattern_Separator.m) 


clear all 
fileparts (mfilename('fullpath') ) 


close all; 


ele? 


i 


TEST\*.csv"]) 


root_folder 
files 


7 


TO 


7 
ES 


'\ SAMPLI 


_folder 


dir ([root 


= length(files); 


num_files 


num_files 
load data 


=1: 


for j 


2° 
ore} 


FILE NAME 


° 
x) 


= files(j).name; 
fopen (filename) 


filename 


fid 


i 


used to identify aircraft 


% 


= textscan(fid, 


HDRS1 


"delimiter',','); 


1, 


= textscan(fid, 


HDRS2 


‘delimiter’; ',')+ 


1, 


nn Nn 
JP JP ol? 
nn Nn 
AP al? ol? 
nnn 
AP Al? lO 
nn Nn 
AP 0 ol? 
nn Nn 
AP JP ol? 
nn Nn 
AP al? ol? 
nnn 
JP JP ol? 
nn Nn 
AP oP ole 
nn Nn 
AP JP ol? 
nn Nn 
AP al? ol? 
nn n 
AP al? ol? 
nn Nn 
JP oP ol? 
nn Nn 
JP JO ol? 
nn Nn 
ae dP oe 
nnn 
AP oP le 
nn 
x oP ol? 
xe) 
A nN 
WH ae oe 
qun 
© oP oe 
10) 
nn n 
YP oP oP? 
x 
on n 
Pp oe oe 
Inn 
ae ol? 
~m 
nnn 
M% oe oe 
Qa 
mann 
ae ol? 
nn 


‘delimiter',','); 


1, 


= textscan(fid, 


HDRS4 


"delimiter',','); 


1, 


textscan(fid, '%s 


data 


. 
lA 


‘delimiter’, %,) 


size (data, 2) 


=1 
size_column 


for oO 


size(data{1,o},1); 


(0) 


end 
Right_Length 


vect_RL 


i 


) 


-* ones(1,size(data,2)); 


size_column 


min ( 
= Right_Length 
size_column-vect_RL 


. 
lA 


size (data, 2) 


if exc(u) 


exXc 


=1: 


for u 


[]; 


data{1,u} (end+1-exc (u) ) 


end 


end 


HEADERS = [HDRS1; HDRS2; HDRS3]; 
Data_l = [data{:}]; 
Data_2 = [HEADERS;Data_1]; 


$% assign data 

lcldate = data{1,1}; 

lcltime = data{1,2}; 

UTCOfst = data{1,3}; 

AtvWpt = data{1,4}; 

AltB = str2double(data{1,7})/3.28; 


fe) 


% altimeter setting 
BaroA = str2double(data{1,8}); 


% altitude 

% maximum operating altitude 

AltMSL = str2double(data{1,9})/3.28; 
BaroA_withoutGoogle = str2double(data{1,9}); 
OAT = str2double(data{1,10}); 

IAS = str2double(data{1,11}); 

GndSpd = str2double(data{1,12}); 

VSpd = str2double(data{1,13}); 

Pitch = str2double(data{1,14}); 


& This part detects if the aircraft is a SR20 or a C172 


if size(findstr (char (HDRS1{1,3}), 'airframe_name") ) ~=0 
Airframe = char(HDRS1{1,3}); 
if size(findstr (Airframe, 'Cirrus SR20'))~=0 


E1l_RPM = str2double(data{1,27}); 
Stall_Airspeed = 60; % for SR20 aircraft 
Aircraft = 'SR20'; 

elseif size(findstr (Airframe, 'Cessna 172'))~=0 
E1l_RPM = str2double(data{1,29}); 
Stall_Airspeed = 47; % for C172 aircraft 
Aircraft =} *C1l72'? 
end 
else 


E1_RPM = str2double(data{1,27} 


3 
Stall_Airspeed = 'Unknown'; % for SR20 aircraft 
Aircraft = 'Unknown'; 


end 

fclose(fid); 

6% Phases of Flight Identification 
timestamp = 1:length(lcltime) ; 


fl = figure(j); 
set (f1l,'Visible', '‘off"'); 


fo) 


pl = plot (BaroA_withoutGoogle); % plots Altitude without phases 


flight detection 


Ok. 


81 


82 


2 


set (f1,'Name', ['Altitude over time for ' filename]); % Helpful to 
set a name to identify plot 

savefig(fl,strrep(fullfile(root_folder, 'Plots', 
filename),'.csv','.fig')) 

export_fig(strrep(fullfile(root_folder, 'Plots', 
filename),'.csv','.png'),f1) 


Matrix_Timestamp_PATTERN1 = {}; 
Matrix_Timestamp_PATTERN2 = {}; 
Matrix_Timestamp_PATTERN3 = {}; 
Matrix_Timestamp_PATTERN4 = {}; 
Matrix_Timestamp_PATTERN5 {}; 
Matrix_Timestamp_PATTERN6 = {}; 
Matrix_Timestamp_NOPATTERN = {}; 


%% TOUCHDOWN : any time the wheels touch the runway. 

Stall airspeed is reached at touchdown, so IAS is between 25kts 
and Stall airspeed. 

Sapproximately. More than 25 kts otherwise the points would be 
plotted 

Suntil the aircraft stops (so all along the runway). 

%I considered a previous descent (<-150 fpm to keep a margin of 50 
fpm compared to the definition of descent (200 fpm)) for at least 60s 
(30s is not enough for 

scertain flights, it detected touchdown at a too high altitude). I 
also 

Sadded an assumption about a previous negative average of vertical 
speed 

% (redundancy). 

SI save the touchdown altitudes to use them for approach, takeoff, 

Scruise (cruise not at touchdown altitude) and go-around. 

Timestamp_TouchDown = zeros (size (BaroA_withoutGoogle) ); 

Altitude_Touchdown = zeros (size (BaroA_withoutGoogle) ); 

for i1=60:length (BaroA_withoutGoogle) 

if IAS(i)>25 && IAS(i)<1.05*Stall_Airspeed && 
(BaroA_withoutGoogle (i) -BaroA_withoutGoogle(i-59))<-150 && sum(VSpd(i- 
59) :VSpd (i) ) /60<0 
Altitude_Touchdown (i) =BaroA_withoutGoogle (i); 
Timestamp_TouchDown (i) =timestamp (i); 
end 

end 

Timestamp_TouchDown_nonzero = 
Timestamp_TouchDown (Timestamp_TouchDown~=0) ; 

Altitude_Touchdown_nonzero = 
Altitude_Touchdown (Altitude_Touchdown~=0) ; 


6% TAXIWAY PHASE 
% IAS is nearly zero when the aircraft moves on taxiway. That's why 


& “IAS (i)<1". Then the Ground Speed has to be more than zero and 
less than 


fo) 


% 25kts approximately, in order to separate taxiway from takeoff 
phase. I 


fo) 


& let "maximum altitude" assumption in comments if we need another 
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% "security" condition (same for Standing phase, see below). I 
added 

& "El RPM(i)<0.95*max(E1_RPM)" to be sure that Taxiway do not 
overlay 

% Takeoff phase (still in comments), and I saved taxiway altitude 
and timestamp to use them 

%& for Takeoff definition. 

Timestamp_Taxiway = zeros(size(BaroA_withoutGoogle) ); 

Altitude_Taxiway = zeros (size (BaroA_withoutGoogle) ); 

for i=1:length (BaroA_withoutGoogle) 

if GndSpd(i)<25 && GndSpd(i)>O && IAS(i)<1 %&& 

length (BaroA_withoutGoogle) ==6957%&& filename = 

"log_150530_140958_KOSU_csv_45_withPhaseCode.csv'%&& 

El RPM(i)<0.95*max(E1_RPM) % && 

BaroA_withoutGoogle(i)<1.2*min (BaroA_withoutGoogle) 
Altitude_Taxiway (i) =BaroA_withoutGoogle (i); 
Timestamp_Taxiway (i)=timestamp (i); 

end 


end 
6% TAKEOFF PHASE 
I considered the full power ("0.80*max(E1_RPM)") and the altitude 
less. than 

$35 ft + the altitude of the nearest airport. I considered two 
kinds of 


ol? 


STakeoff (no difference on the plot, just in the code): after 
Taxiway phase 
$(2)and after a Touchdown (1) (touch and go). There are many ways 


to write this 

Spart but I decided to find the minimum difference between 
Touchdown anda 

Sgiven value of timestamp, same for Taxiway. Thus it will find the 
nearest 

Svalues of Taxiway and Touchdown in order to deal with their 
altitude 

% ("BaroA_withoutGoogle(i)< 35+Altitude_Touchdown (idx1)"). 

"abs (idxl-timestamp (i) )<abs (idx2-timestamp(i))" is made to know if 


the 

Snearest value is a taxiway point or a touchdown point. If it is a 

Stouchdown, then use Altitude_Touchdown(idx1l). If it is a Taxiway, 
then use 

SAltitude_Taxiway (idx2). I made this to be sure the code knows 
which 

Saltitude it has to consider for 

S"BaroA_withoutGoogle (i) <35+AltitudeAirport" (example). Because the 

Saltitude of the airport can vary during the flight (different 
airports, 

Scross country). 


Timestamp_Takeoffl = zeros(size(BaroA_withoutGoogle) ); 
Timestamp_Takeoff2 = zeros(size(BaroA_withoutGoogle) ); 


for i=1:length(BaroA_withoutGoogle) 
[1, idx1]=min (abs (Timestamp_TouchDown_nonzero (:)- 
timestamp (i))); 
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[1,idx2]=min (abs (Timestamp_Taxiway(:)-timestamp(i))); 
if El_RPM(i)>=0.80*max(E1_RPM) && (BaroA_withoutGoogle(i)< 
35+Altitude_Touchdown_nonzero(idxl)) && 
abs (Timestamp_TouchDown_nonzero (idx1) -timestamp (i) ) <abs (idx2- 
timestamp (i) ) 


fo) 


Timestamp_Takeoff1(i)=timestamp(i); % after a Touch and 
go 
else if E1_RPM(i)>=0.80*max(E1_RPM) && (BaroA_withoutGoogle(i)< 
35+Altitude_Taxiway (idx2))&& abs (Timestamp_TouchDown_nonzero (idx1) - 
timestamp (i) )>abs (idx2-timestamp (i) ) 
Timestamp_Takeoff2(i)=timestamp(i); % after Taxi phase 
end 
end 
end 


%% GO-AROUND 

& I try to get minima (peak) of altitude (BaroA_withoutGoogle) to 
detect go-around. 

S"600" because I consider the maximum interval (to make a pattern) 
equal to 

% 10 minutes (60"*10). 

SWhile go-around, the pilot use full power earlier than for a 
touchdown (95% of maximum value is enough compared to takeoff one 
(80%), but we can change it to 80%, it only adds margins), as 

She wants to climb asap. For a Touchdown (touch and go), the pilot 
waits a bit while 

Srolling on the runway. Except exceedance, stall airspeed should 
not be 

Sreached during a go-around. 

SI added "mintab(i,2)> 
Altitude_Touchdown (Timestamp_TouchDown (idx))" because I had problems 
with 

S$"A 123013 LI a_csv.csv" for example as it detected touchdown and 
go-around 

Sat same altitude. Indeed Touchdown was correctly detected but as 
the pilot 

Saccelerate (full power) to climb again, Go-around was detected. 
(This is 

sthe same way as for previous phases definitions, I try to find the 
nearest 

Stouchdown/ the shortest time separating touchdown and given value 


of 

Stimestamp to know the altitude of this touchdown, then I set the 
limits). 

SI chose "mintab(i,2)< 
400+Altitude_Touchdown (Timestamp_TouchDown (idx) )" 

sand "mintab(i,2)> Altitude_Touchdown (Timestamp_TouchDown (idx) )" 

$(mintab(i,2) is the altitude of the peak and mintab(i,1) is the 
timestamp 

sof the peak) to say that a Go-around is located between 0 and 400 
ft above 

Sa corresponding airport.Otherwise it detects a Go-round 

Sat a too high altitude for "A 033114 LBD a_csv.csv" file. 


Timestamp_Goaround = zeros (size (BaroA_withoutGoogle) ); 
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[maxtab, mintab] = peakdet (BaroA_withoutGoogle, 600,timestamp) ; 


for i=1:length (mintab) 


[1,idx]=min (abs (Timestamp_TouchDown_nonzero(:)-mintab(i,1))); 
if size(mintab)==[1,2] % I used this if loop with "break" to 


avoid errors with files "A 113013 LO a_csv.csv" and "A 0043014 LM 
a_csv.csv". There is no go-around during these flights so I avoid this 
phase definition and errors about mintab size (too litle to be 
considered in next loop). 
break 

end 

if El_RPM(mintab(i,1))>0.7*max(E1_RPM) && 
TAS (mintab(i,1))>Stall_Airspeed && mintab(i,2)< 
400+Altitude_Touchdown_nonzero (idx) && mintab(i,2)> 
Altitude_Touchdown_nonzero (idx) 

Timestamp_Goaround(i) = mintab(i,1); 

end 


end 


%% Detection and Recording of pattern timestamps 


if any (Timestamp_Takeoff1)==1 % if there is a takeoff after a Touch 
& go 
XTol = zeros (size (BaroA_withoutGoogle) ); 
for i = 1:length(XTol) 
if any (Timestamp_Takeoffl==i) %if any value from this vector 
is equal to increment 
XTol(i) = i; 
end 
end 
end 
if any (Timestamp_Takeoff2)==1 % if there is a takeoff after a Taxi 
phase 
XTo2 = zeros (size (BaroA_withoutGoogle) ); 
for i = 1:length(XTo2) 
if any (Timestamp_Takeoff2==i) %if any value from this vector 
is equal to increment 
XTo2(i) = i; 
end 
end 
end 


XTo = XToO2; 
for i=1:length (XTo) 
if any (Timestamp_Takeoff1)==1 
if XTol(i)~=0 
XTo(i) = XTol (i) ; 
end 
end 
end 


if any (Timestamp_Goaround) == 
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XGa = zeros (size (BaroA_withoutGoogle) ); 
for i = 1:length(XGa) 

if any (Timestamp_Goaround==i) %if any value from this vector 

is equal to increment 
XGa(i) = i; 

end 
end 
end 


XTd = zeros (size (BaroA_withoutGoogle) ); 
for i = 1:length(XTd) 


if any (Timestamp_TouchDown==i) %if any value from this vector 
is equal to increment 
XTd(i) = i; 
end 


end 


if any (Timestamp_Goaround)==1 % Here I merged all Takeoff, Go- 
around (if any), and Touchdowns timestamps (in a vector size equal to 
the flight duration, filled by zeros when those phases do not occur) 
XToTdGa = XTo + XTd + XGa; 
XTdGa = XTd + XGa; 
XToGa = XTo + XGa; 
else 
XToTdGa = XTo + XTd; 
XTdGa = XTd; 


end 
XToTdGa_without_zeros = XToTdGa (XToTdGa~=0) ; 


a2 = (XToTdGa~=0); % detects all Takeoffs, TouchDowns and Go- 
arounds 


d2 = diff(a2); % sets the difference between those phases 
represented by the timestamp when it occurs 

start2 = find(d2==1); % Start index of each group, finds the 
beginning of a takeoff phase for instance 


finish2 = find(d2 ==-1); % Last index of each group 
diffsize2 = size(start2 ,1) - size(finish2,1); 


if diffsize2<0 

finish2=finish2 (l:end-abs (diffsize2)); 
elseif diffsize2>0 

start2=start2(l:end-abs (diffsize2)); 


end 
len2 = find(d2 ==-1)-start2+1; % Length, number of indexes in each 
group 


for i = 1:length(len2) 
if exist ('XGa')==1 % if there is any Go-around in the flight 


if len2(i)<3 & len2(i)>0O & start2 (i) ~=XGa (XGa~=0) -1 


end 
else 


should last 


len2(i) = 
start2 (i) 
finish2(i 


0; 
= 0 


) = 0; 


if len2(i)<3 & len2(i)>0 
less than 5 seconds 


° 
6 


[]; 


Length, 


no phase like Touchdown, 


Start index of each group 


% Last index of each group 
- size(finish3,1); 


if len3(i)<3 & len3(i)>0O & start3(i)~=XGa (XGa~=0) -1 


len2(i) = 0; 
start2(i) = 0; 
finish2(i) = 0; 
end 
end 
end 
len2 (len2==0) = []; % 
start2 (start2==0) = []; 
finish2 (finish2==0) = []; 
Diff_start2 = diff(start2); 
start2 (Diff_start2<200) = []; 
Diff_start2 (Diff_start2<200) = 
Diff_start2 = [Diff_start2; 0]; 
a3 = (XTdGa~=0); % 
d3 = diff(a3); 
start3 = find(d3==1); % 
finish3 = find(d3 ==-1); 
diffsize3 = size(start3 ,1) 
if diffsize3<0 
finish3=finish3(l:end-abs (diffsize3)); 
elseif diffsize3>0 
start3=start3(l:end-abs (diffsize3)); 
end 
len3 = find(d3 ==-1)-start3+1; % 
group 
for i = 1:length(len3) 
if exist ('XGa')==1 
len3(i) = 0; 
start3(i) = 0; 
finish3(i) = 0; 
end 
else 


if len3(i)<3 & len3(i)>0 
len3(i) = 0; 
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Takeoff 


Same for a2 but without takeoff phase recorded 


number of indexes in each 
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start3(i) = 0; 
finish3(i) = 0; 
end 
end 
end 
len3 (len3==0) = [] 


start3 (start3==0) = []; 
finish3 (finish3==0) = []; 
Diff_start3 = diff (start3); 
Diff_start3 = [Diff_start3; 0]; 
Diff_start3 (Diff_start3<200) = []; 


for i = 1l:length(Diff_start2) 
if Diff_start2(i) <= 700 && Diff_start2(i) >= 200 % if between 

two touchdowns/Go-arounds (if any), there are between 200 and 700 

seconds, this is a pattern 
Timestamp_PATTERN1 = 

timestamp (start2(i)):l:timestamp(start2 (itl) ); 
Matrix_Timestamp_PATTERN1{i}=Timestamp_PATTERN1'; 
Factor_3 = 2; 
Case_To_follows_Td_right_after1l=1; 


end 
end 


if size (Matrix_Timestamp_PATTERN1) ~=0 
for i=1:length (Matrix_Timestamp_PATTERN1) 
if max (BaroA_withoutGoogle (Matrix_Timestamp_PATTERN1{i}))- 
min (BaroA_withoutGoogle (Matrix_Timestamp_PATTERN1{i}))<150 
Matrix_Timestamp_PATTERN1{i}=[]; 
end 
end 
Matrix_Timestamp_PATTERN1 (cellfun (@ (Matrix_Timestamp_PATTERN1) 
isempty (Matrix_Timestamp_PATTERN1) ,Matrix_Timestamp_PATTERN1) )=[]; 


end 


Diff2Diff3=intersect (Diff_start2,Diff_start3, 'stable'); Patterns 
im common for Dit£2 and Dautt3 


if size (Matrix_Timestamp_PATTERNZ2) ~=0 


Matrix_Timestamp_PATTERN2 (cellfun(@isempty,Matrix_Timestamp_PATTERN2) )= 
[]; 


end 
if size (Matrix_Timestamp_PATTERN3) ~=0 


Matrix_Timestamp_PATTERN3 (cellfun(@isempty,Matrix_Timestamp_PATTERNS3) )= 


[]; 

end 

NONDiff2Diff3=setxor (Diff_start2,Diff_start3, 'stable'); % Patterns 
not in common with Diff2 and Diff3 


if size(Diff_start2) == 0 


Factor_3 = 1; 
else 
end 
Matrix_Timestamp_NOPATTERN = 


if size (Matrix_Timestamp_PATT 


{}; 


ERN1) ~=0 


for i=1:length (Matrix_Timestamp_PATTERN1) 


Altitude_Pattern1l=BaroA_withoutGoogle (Matrix 


Patternl=Matrix_Timestamp_PATTERN1 {i}; 


Data_3 = 


Data_1(Patternl (1) :Patternl (end),1:size(Data_1,2)); 


cellarrayOUTPUT1 = [H 


EFADERS;Data_3]; 


end 
end 
if size (Matrix_Timestamp_PATT! 


ERN2) ~=0 


for i=1:length (Matrix_Timestamp_PATTERNZ2) 


Altitude_Pattern2=BaroA_withoutGoogle (Matrix_Timestamp_PATT 
Pattern2=Matrix_Timestamp_PATTERN2 {i}; 


Data_3 = 


Data_1(Pattern2 (1) :Pattern2(end),1:size(Data_1,2)); 


cellarrayOUTPUT2 = [H 
end 
end 
if size (Matrix_Timestamp_PATT 


EFADERS;Data_3]; 


ERN3) ~=0 


for i=1:length (Matrix_Timestamp_PATTERN3) 


Altitude_Pattern3=BaroA_withoutGoogle (Matrix_Timestamp_PATT 
Pattern3=Matrix_Timestamp_PATTERN3 {i}; 


Data_3 = 


Data_1 (Pattern3 (1) :Pattern3 (end),1:size(Data_1,2)); 


cellarrayOUTPUT3 = [H 


EFADERS;Data_3]; 


end 
end 


if size (Matrix_Timestamp_PATTERN4) ~=0 
for i=1:length (Matrix_Timestamp_PATTERN4) 


Altitude_Pattern4=BaroA_withoutGoogle (Matrix 


Timestamp_PATT! 


Pattern4=Matrix_Timestamp_PATTERN4 {i}; 


Data_3 = 


Data_1(Pattern4 (1) :Pattern4 (end),1:size(Data_1,2)); 


cellarrayOUTPUT4 = [HEADERS;Data_3]; 


end 
end 


if size (Matrix_Timestamp_PATTERN5) ~=0 
for i=1:length (Matrix_Timestamp_PATTERN5) 


Altitude_Pattern5=BaroA_withoutGoogle (Matrix 


Timestamp_PATT! 


Pattern5=Matrix_Timestamp_PATTERN5{i}; 


Data_3 = 


Data_1(Pattern5(1) :Pattern5 (end),1:size(Data_1,2)); 


cellarrayOUTPUT5 = [HEADERS;Data_3]; 


end 
end 


Timestamp_PATTERN1{i}); 


ERN2{i}); 


ERN3{i}); 


ERN4{i}); 


ERNS{i}); 
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if size (Matrix_Timestamp_PATTERN6) ~=0 
for i=1:length (Matrix_Timestamp_PATTERN6) 


Altitude_Pattern6=BaroA_withoutGoogle (Matrix_Timestamp_PATTERN6{i}); 
Pattern6=Matrix_Timestamp_PATTERN6 {i}; 
Data_3 = 
Data_1 (Pattern6 (1) :Pattern6(end),1:size(Data_1,2)); 
cellarrayOUTPUT6 = [HEADERS;Data_3]; 
end 


end 
6% Rest of the flight except easy phases 


Timestamp_NoPattern = timestamp; 
if size (Matrix_Timestamp_PATTERN1) ~=0 
ArrayTimePatternsl = arrayfun (@ (idx) 
vertcat (Matrix_Timestamp_PATTERN1{idx,:}), 
1:size(Matrix_Timestamp_PATTERN1,1), ‘'un', 0); 
ArrayTimePatternsl = cell2mat (ArrayTimePatterns1); 
Timestamp_NoPattern (intersect (timestamp, ArrayTimePatterns1) )=0; 
Timestamp_NoPattern = Timestamp_NoPattern'; 


end 


if size (Matrix_Timestamp_PATTERNZ2) ~=0 
ArrayTimePatterns2 = arrayfun (@ (idx) 
vertcat (Matrix_Timestamp_PATTERN2{idx,:}), 
1:size(Matrix_Timestamp_PATTERN2,1), '‘un', 0); 
ArrayTimePatterns2 = cell2mat (ArrayTimePatterns2) ; 
Timestamp_NoPattern (intersect (timestamp, ArrayTimePatterns2) )=0; 
Timestamp_NoPattern = Timestamp_NoPattern'; 


end 


if size (Matrix_Timestamp_PATTERN3) ~=0 
ArrayTimePatterns3 = arrayfun (@ (idx) 
vertcat (Matrix_Timestamp_PATTERN3{idx,:}), 
1:size(Matrix_Timestamp_PATTERN3,1), ‘un', 0); 


ArrayTimePatterns3 = cell2mat (ArrayTimePatterns3) ; 
Timestamp_NoPattern (intersect (timestamp, ArrayTimePatterns3) )=0; 
Timestamp_NoPattern = Timestamp_NoPattern'; 

end 


if size (Matrix_Timestamp_PATTERN4) ~=0 
ArrayTimePatterns4 = arrayfun(@ (idx) 
vertcat (Matrix_Timestamp_PATTERN4{idx,:}), 
1:size(Matrix_Timestamp_PATTERN4,1), '‘un', 0); 
ArrayTimePatterns4 = cell2mat (ArrayTimePatterns4) ; 
Timestamp_NoPattern (intersect (timestamp, ArrayTimePatterns4) )=0; 
Timestamp_NoPattern = Timestamp_NoPattern'; 
end 
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if size (Matrix_Timestamp_PATTERN5) ~=0 
ArrayTimePatterns5 = arrayfun (@ (idx) 
vertcat (Matrix_Timestamp_PATTERN5{idx,:}), 
1:size(Matrix_Timestamp_PATTERN5,1), '‘un', 0); 
ArrayTimePatterns5 = cell2mat (ArrayTimePatterns5) ; 
Timestamp_NoPattern (intersect (timestamp, ArrayTimePatterns5) )=0; 
Timestamp_NoPattern = Timestamp_NoPattern'; 


end 


if size (Matrix_Timestamp_PATTERN6) ~=0 
ArrayTimePatterns6 = arrayfun (@ (idx) 
vertcat (Matrix_Timestamp_PATTERN6{idx,:}), 
1:size(Matrix_Timestamp_PATTERN6,1), ‘un', 0); 
ArrayTimePatterns6 = cell2mat (ArrayTimePatterns6) ; 
Timestamp_NoPattern (intersect (timestamp, ArrayTimePatterns6) )=0; 
Timestamp_NoPattern = Timestamp_NoPattern'; 


end 

a4 = (Timestamp_NoPattern~=0); % detects all segments without 
patterns 

d4 = diff(a4); 


start4 = find(d4==1); & Start index of each group 
if size(start4,1)<size(start4,2) 
start4 = start4'; 
end 
if a4(1)== 


start4 = [start4 ;Timestamp_NoPattern(1)]; 
start4 sortrows (start4); 


end 
finish4 = find(d4 ==-1); % Last index of each group 
if size(finish4,1)<size(finish4, 2) 
finish4 = finish4'; 
end 
if a4(end) == 
finish4 [finish4 ;Timestamp_NoPattern (end) ]; 
finish4 = sortrows(finish4); 


end 

start4(start4==0) = []; 

finish4 (finish4==0) = []; 

all4 = [start4;finish4]; 

all4 = sort(all4); 

Diff_start4 = diff(all4); 

Diff_start4 = [Diff_start4; 0]; 

if any(a4(:) < 1) && a4(1)== 
Diff_start4(1) = []; 


end 

if any(a4(:) < 1) && a4(end)== 
Diff_start4(end-1) = []; 

end 


for i = l:length(start4) 
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Timestamp_NOPATTERN = 
timestamp (start4(i)):l:timestamp (finish4 (i) ); 
Matrix_Timestamp_NOPATTERN{i}=Timestamp_NOPATTERN'; 


end 
if size (Matrix_Timestamp_NOPATTERN) ~=0 
for i=1:length (Matrix_Timestamp_NOPATTERN) 
if max (BaroA_withoutGoogle (Matrix_Timestamp_NOPATTERN{i}))- 
min (BaroA_withoutGoogle (Matrix_Timestamp_NOPATTERN{i}))<150 
Matrix_Timestamp_NOPATTERN{i}=[]; 
end 
end 
Matrix_Timestamp_NOPATTERN (cellfun(@(Matrix_Timestamp_NOPATTERN) 
isempty (Matrix_Timestamp_NOPATTERN) ,Matrix_Timestamp_NOPATTERN) )=[]; 


end 


if size (Matrix_Timestamp_NOPATTERN) ~=0 
for i=1:length (Matrix_Timestamp_NOPATTI 


Gl 


RN) 


Altitude_NOPattern=BaroA_withoutGoogle (Matrix_Timestamp_NOPATTERN{i})j; 


NoPattern=Matrix_Timestamp_NOPATTERN{i}; 
Data_3 = 
Data_1(NoPattern(1):NoPattern(end),1:size(Data_1,2)); 
cellarrayOUTPUT_NOPATTERN = [HEADERS;Data_3]; 
end 
end 
ub a 


(size (Matrix_Timestamp_PATTERN1, 2) ~=0&size (Matrix_Timestamp_NOPATTERN, 2 
)==0) 


MessagePAT_Only = ['Sample ' filename ' contains traffic 
patterns only.']; 

copyfile(fullfile(root_folder, 'SAMPLES TO_TEST', 
filename), fullfile(root_folder, 'PAT', filename) ) 

disp (MessagePAT_Only) ; 


end 

icf 
(size (Matrix_Timestamp_PATTERN1, 2) ==0&size (Matrix_Timestamp_NOPATTERN, 2 
)~=0) 


MessageNONPAT_Only = ['Sample ' filename ' does not contain any 
traffic pattern.']; 

copyfile(fullfile(root_folder, 'SAMPLES TO_TEST', 
filename), fullfile(root_folder, 'NONPAT', filename) ) 

disp (MessageNONPAT_Only) ; 


end 

Aft 
(size (Matrix_Timestamp_PATTERN1, 2) ~=0&size (Matrix_Timestamp_NOPATTERN, 2 
)~=0 


MessagePAT_NONPAT = ['Sample ' filename ' contains both traffic 
patterns and non traffic patterns.']; 
disp (MessagePAT_NONPAT) ; 
end 


end 
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Matlab script defines finds the best methods given a number of flights without traffic 


B.2 


patterns (MethodSelection_NONPATHandCodedSamples.m) 


clear all 
close all 


cle 


fileparts (mfilename('fullpath"')); 


root_folder 
files_all 


We ese") ) + 


'NONPAT', 


, 


root_folder 


dir (fullfile ( 


all); 


length (files_ 


num_files_all 


num_files_all 


=1: 


for i. 


fullfile ( 


FILE 


% 


. 
’ 


(i) .name) 


"NONPAT', files_all 


, 


root_folder 


filename 


NAME 


fid 


7 


fopen (filename) 
= textscan(fid, 
= textscan(fid, 


"delimiter', 


1, 


HDRS1 
HDRS2 


'delimiter',','); 


2, 


HDRS3 = textscan(fid, 


"delimiter',','); 


3, 


= textscan(fid, 


HDRS4 


"delimiter',','); 


4, 


textscan(fid, '%s 


data 


"delimiter',','); 


° ' 
ge"; 


:size (data, 2) 
size_column 


=1 


for o 


. 
’ 


size (data{1,o},1) 


(0) 


end 


i 


) 


-* ones(1,size(data,2)); 


size_column-vect_RL 


size _column 


min ( 
= Right_Length 


Right_Length 


vect_RL 


. 
’ 


size (data, 2) 


if exc (u) 


exXc 


=1: 


for u 


[]; 


data{1,u} (end+1-exc (u) ) 


end 


end 


i 


data{78} 
assert (isempty (test_var{1})==0, 


test_var 


"Files are missing phase codes!') 
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= size(data{1,1},1); 


(i) 


SIZE_FILES 


end 


SUM = 0; 


length (SIZE_FILES) 


= 1 


FoF 1 


i 


(i) 


SUM + SIZE_FILES 
ples = i 


SUM 


. 
’ 


Limit_number_sam 


end 


SUM/19.7; 
['This should take around 


TIME_TO_COMPUTE 
prompt 


Vy 


Vy 


to compute. 


"seconds (' 


r2))y 


/60)), 


TIME_TO_COMPUTE 


num2str (roundn ( 
num2str (round ( 


Continue? 


minute(s) ) 


use quotes)']; 


TIME_TO_COMPUTE 


ee a eee ae 


= true; 


Bool2 


while (Bool2) 


if x=='y' 


= false; 


Bool2 


elseif x=='n' 


= false; 


Bool2 


return 
elseif x~='n'|x~='y' 


['Unidentified answer.']; 


disp (Message_error) 


Bool2 


Message_error 


= true; 


end 


end 


ples 


Limit_number_sam 


=1: 


for 1 


FILE 


% 


. 
lA 


(i) .name) 


"NONPAT', files_all 


VY 


root_folder 


= fullfile( 


filename 


NAM 


fid 


= 
my 


fopen (filename) ; 


used to identify aircraft 


% 


"delimiter', 


1, 


= textscan(fid, 
= textscan(fid, 


HDRS1 
HDRS2 


"delimiter',','); 


2, 


HDRS3 = textscan(fid, 


'delimiter',','); 


3, 


HDRS4 = textscan(fid, $s %s $s %S SS %8S %S %S %S %S %S %S SS $8 SS SS 
a8 SS 28 3S S28 Sa oS 2s Sa 26 3S 25 46 26 4S SS SS Se SS Sa ss: se SS Ss 
$s %s %s %sS SS %S %S8 %$S SS %8S %S %S %S %S %S SS $8 $8 $8 SS SS SS SS SS 
$s %s %s %8 SS %8S SS SS %S SS SS SS SS SS', 4, 'delimiter',','); 

data = textscan(fid,'%s %s %s %s %s %S %8 %S %8 %S %8S %S 38 SS SS SS 
S8 358 6s ts SS 35 Ss 8S 8. 3s te 2S S38 36 te Ss 8 3S te 38 38 Ss tae 3s 
Ss Ss SS SS SS SS SS SS %S SS %S SS %S SS %S SS SS SS SS SS SS SS SS SS 
$s %s %s %s %8 %S %S $8 $S $8 $S SS SS SS', 'delimiter', 


assign data 
lcltime data{1,2}; 
BaroA_withoutGoogle 


str2double(data{1,9}); 


TAS = str2double(data{1,11}); 
GndSpd = str2double(data{1,12}); 
VSpd = str2double(data{1,13}); 


° 
Oo 


This part detects if the aircraft is a SR20 or a C172 
Airframe char (HDRS1{1,3}); 
if size(findstr (Airframe, 'Cirrus SR20'))~ 


0 


E1l_RPM = str2double(data{1,27}); 
Stall_Airspeed = 60; % for SR20 aircraft 
Aircraft = 'SR20'; 

elseif size(findstr (Airframe, 'Cessna 172'))~=0 
E1l_RPM = str2double(data{1,29}); 
Stall_Airspeed = 47; % for C172 aircraft 
Aircraft = ‘C172"; 


end 

Phase_code 
fclose(fid); 
timestamp 


str2double(data{1,78}); 


1:length (lcltime) ; 


"AS 


Cell_a sprintf ( s',num2str(i) ); 


Vector_EasyPhaselId= 
rspeed, IAS, E1_RPM, VSpd, GndSpd) 


id 


ErrorsDSAD 


Fasy_phase_id(timestamp, BaroA_withoutGoogle, Stall_Ai 


DSAD_func_errors (timestamp, BaroA_withoutGoogle, Phase_code, Vector_EasyPh 


aseld,i); 
if exist ('TableErrorsDSAD')==0 


TableErrorsDSAD = fullfile(root_folder, 'Extra', 
'TableErrorsDSAD_ NONPAT.xlsx'); 

end 

xlswrite (TableErrorsDSAD, ErrorsDSAD,1,Cell_a)j; 


ErrorsDSRC 
DSRC_func_errors (timestamp, |! 
aseld,i); 


if exist ('TableErrorsDSRC')==0 

TableErrorsDSRC = fullfile(root_folder, 'Extra', 
'TableErrorsDSRC_NONPAT.xlsx'); 

end 


xlswrite (TableErrorsDSRC, ErrorsDSRC,1,Cell_a)j; 


BaroA_withoutGoogle, Phase_code, Vector_EasyPh 


ErrorsMAAD = 
MAAD_func_errors (timestamp, |] 
aseld,i); 


if exist ('TableErrorsMAAD')==0 


TableErrorsMAAD = fullfile(root_folder, 


'TableErrorsMAAD NONPAT.xlsx'); 


end 


xlswrite (TableErrorsMAAD, | 


ErrorsMARC = 
MARC_func_errors (timestamp, | 
aseld,i); 


BaroA_withoutGoogle, Phase_code,Vector_} 


if exist ('TableErrorsMARC')==0 


TableErrorsMARC = fullfile(root_folder, 


'TableErrorsMARC_NONPAT.xlsx'); 


end 


xlswrite (TableErrorsMARC, | 


ErrorsLRAD = 
LRAD_func_errors (timestamp, | 
aseld,i); 


if exist ('TableErrorsL 


TableErrorsLRAD = fullfile(root_folder, 


RAD') ==0 


'TableErrorsLRAD NONPAT.xlsx'); 


end 


xlswrite (TableErrorsLRAD, |] 


ErrorsLRRC = 
LRRC_func_errors (timestamp, | 
aseld,i); 

if exist ('TableErrorsL 


TableErrorsLRRC = fullfile(root_folder, 


BaroA_withoutGoogle, Phase_code,Vector_1! 


RRC') ==0 


'TableErrorsLRRC_NONPAT.xlsx'); 


end 


xlswrite (TableErrorsLRRC, |] 


end 


ErrorsDSADmat 


= xlsread(TableErrorsDSAD) ; 


AVERAGE _DS_AD = mean (ErrorsDSADmat) ; 
TOR_DS_AD = igr(ErrorsDSADmat) ; 


ErrorsDSRCmat 
AVERAGE_DS_RC 


= xlsread(TableErrorsDSRC) ; 
mean (ErrorsDSRCmat) ; 


TOR_DS_RC = igr(ErrorsDSRCmat) ; 


ErrorsDSAD1_ 20mat = xlsread 


ll 


ErrorsMAADmat 
AVERAGE_MA_AD 


BaroA_withoutGoogle, Phase_code,Vector_} 


‘Extra’, 


RrrorsMAAD,1,Cell_a)j; 


‘Extra’, 


ErrorsMARC,1,Cell_a)j; 


BaroA_withoutGoogle, Phase_code, Vector_| 


"Extra ’, 


ERrrorsLRAD,1,Cell_a)j; 


"Extra', 


RrrorsLRRC,1,Cell_a); 


(TableErrorsDSAD1_20); 
AVERAGE _DS_AD2 = mean(ErrorsDSAD1_20mat) ; 
TOR_DS_AD2 = iqr(ErrorsDSAD1_20mat); 


xlsread(TableErrorsMAAD) ; 
mean (ErrorsMAADmat) ; 


TOR_MA_ AD = igr(ErrorsMAADmat) ; 


a7 


EasyPh 


EasyPh 


EFasyPh 


EasyPh 


ErrorsMARCmat xlsread(TableErrorsMARC) ; 
AVERAGE MA RC mean (ErrorsMARCmat) ; 
TOR_MA_ RC = igr(ErrorsMARCmat) ; 


ErrorsLRADmat xlsread(TableErrorsLRAD) ; 
AVERAGE__LR_AD mean (ErrorsLRADmat) ; 
TOR_LR_AD = igr(ErrorsLRADmat) ; 


ErrorsLRRCmat xlsread(TableErrorsLRRC) ; 
AVERAGE _LR_RC = mean (ErrorsLRRCmat) ; 
TOR_LR_RC = igqr(ErrorsLRRCmat) ; 


if exist ('Test_Table', 'var')==0 

Test_Table = fullfile(root_folder, 'Extra', 
'Test_Table_NONPAT.xlsx"'); 
end 


Write_number_samples=[num2str(Limit_number_samples) ' Samples']; 

xlswrite(Test_Table, {Write_number_samples},'Al:Al1'); 

Increment10 = 1:1:300; 

xlswrite(Test_Table, Increment10, 'C1:KP1"'); 

xlswrite(Test_Table, {'Mean'},'B2:B2"'); 

xlswrite(Test_Table, {'Mean'},'B6:B6'); 

xlswrite(Test_Table, {'Mean'},'B10:B10"'); 

xlswrite(Test_Table, {'Mean'},'B14:B14"'); 
) 
) 


if 


xlswrite(Test_Table, {'Mean'},'B18:B18' 
xlswrite(Test_Table, {'Mean'},'B22:B22' 
xlswrite(Test_Table, {'IQR'},'B4:B4"'); 
xlswrite(Test_Table, {'IQR'},'B8:B8"'); 
xlswrite (Test_Table, {'IOR'},'B1l2:B12'); 
xlswrite(Test_Table, {'IQR'},'B16:B16'); 
) 
) 


Ld 


’ 


xlswrite(Test_Table, {'IQR'},'B20:B20' 
Test_Table, {'IOR'},'B24:B24' 


xlswrite ; 


Neo 


xlswrite 
xlswrite 
xlswrite 
xlswrite 
xlswrite 
xlswrite 


Test_Table, {'DS/AD'},'A2:A2"); 
Test_Table, {'DS/RC'}, 'A6:A6"); 
Test_Table, {'MA/AD'},'A10:A10'); 
Test_Table, {'MA/RC'},'A14:A14'); 
) 
) 


, 


Test_Table, {'LR/AD'},'A18:A18' 
Test_Table, {'LR/RC'}, 'A22:A22' 


, 


Oa 


xlswrite 
xlswrite 
xlswrite 
xlswrite 
xlswrite 


Test_Table, AVERAGE _DS_AD, 'C2:KP2'); 
Test_Table, IQR_DS_AD, 'C4:KP4'); 
Test_Table, AVERAGE _DS_RC, 'C6:KP6'); 


Test_Table, IOR_DS_RC, 'C8:KP8'); 
Test_Table, AVERAGE MA AD, 'C10:KP10'); 


ee eae 


xlswrite(Test_Table, IQR_MA AD, 'C12:KP12"'); 
xlswrite(Test_Table, AVERAGE MA RC, 'C14:KP14"'); 
xlswrite(Test_Table, IQR_MA RC, 'C16:KP16'); 


xlswrite (Test_Table, AVERAGE _LR_AD, 'C18:KP18"'); 
xlswrite(Test_Table, IQR_LR_AD, 'C20:KP20"'); 
( 
( 


xlswrite (Test_Table, AVERAGE _LR_RC, 'C22:KP22"'); 
xlswrite(Test_Table, IQR_LR_RC, 'C24:KP24"'); 


%% Selection of best method/parameter 


filename = 'Test_Table NONPAT.xl1sx'; 

fid = fopen(filename, 'r'); 

[~,~,raw] = xlsread('Test_Table_NONPAT', 'C1:KP32"'); 
Increment10 = raw(1,:); 


Increment10 cell2mat (Increment10); 


Incrementl = raw(29,:); 
Incrementl cell2mat (Increment1); 


oe 
ae 


Down-Sampling/Altitude Difference 


DSAD_Av = raw(2,:); 

DSAD_Av = cell2mat (DSAD_Av) ; 

[valDSAD_Av, colDSAD_Av] = min(DSAD_Av); 
DSAD_TOR = raw(4,:); 

DSAD_IOR = cell2mat (DSAD_IQR) ; 
[valDSAD_TIQR, colDSAD_TIQR] = min(DSAD_IQR)j; 
XparamDSAD = (colDSAD_Av+colDSAD_IQR) /2; 

if (ismember (XparamDSAD, Increment10(:) )==1) 


Best_param_DSAD = XparamDSAD; 
else 
if colDSAD_ Av < colDSAD_IOR 
diff = abs(Increment10 - XparamDSAD) ; 
[val,idx] = min(diff); 
Best_param_DSAD = XparamDSAD - val; 


elseif colDSAD_ Av > colDSAD_IOR 
diff = abs(Increment10 - XparamDSAD) ; 
[val,idx] = min(diff); 
Best_param_DSAD = XparamDSAD + val; 


end 
end 


%% Down-Sampling/Rate of Climb 

DSRC_Av = raw(6,:); 

DSRC_Av = cell2mat (DSRC_Av) ; 
[valDSRC_Av, colDSRC_Av] = min(DSRC_Av); 


DSRC_IOR = raw(8,:); 
DSRC_IOR = cell2mat (DSRC_IQR) ; 
[valDSRC_IQR, colDSRC_IQR] = min(DSRC_IQR); 
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XparamDSRC = (colDSRC_Av+colDSRC_IQR) /2; 


if (ismember (XparamDSRC, Increment10(:) )==1) 
Best_param_DSRC = XparamDSRC; 


else 


if colDSRC_Av < colDSRC_IOQR 
diff = abs(Increment10 - XparamDSRC) ; 

[val,idx] = min(diff); 

Best_param_DSRC = XparamDSRC - val; 


elseif colDSRC_Av > colDSRC_IOQR 
diff = abs(Increment10 - XparamDSRC) ; 
[val,idx] = min(diff); 
Best_param_DSRC = XparamDSRC + val; 


end 


$% Moving Average/Altitude Difference 
MAAD Av = raw(10,:); 

MAAD_ Av = cell2mat (MAAD_Av) ; 
[valMAAD_ Av, colMAAD_ Av] = min(MAAD_ Av); 


MAAD_ IQR = raw(12,:); 
MAAD_ IQR = cell2mat (MAAD_ IQR); 
[valMAAD_TQR, colMAAD_TQR] = min(MAAD_ IQR); 


XparamMAAD = (colMAAD_Av+colMAAD_IQR)/2; 


if (ismember (XparamMAAD, Increment10(:) )==1) 
Best_param_MAAD = XparamMAAD; 


else 
if colMAAD Av < colMAAD_IOR 
diff = abs(Increment10 - XparamMAAD) ; 
[val,idx] = min(diff); 
Best_param_MAAD = XparamMAAD - val; 


elseif colMAAD Av > colMAAD _ IOR 
diff = abs(Increment10 - XparamMAAD) ; 
[val,idx] = min(diff); 
Best_param_MAAD = XparamMAAD + val; 


end 
end 


%$% Moving Average/Rate of Climb 
MARC_Av = raw(14,:); 

MARC_Av = cell2mat (MARC_Av) ; 
[valMARC_Av, colMARC_Av] = min(MARC_Av); 


MARC_IOR = raw(16,:); 
MARC_IOR = cell2mat (MARC_IQR) ; 
[valMARC_IQR, colMARC_IQR] = min(MARC_IQR)j; 
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XparamMARC = (colMARC_Av+colMARC_IQR) /2; 


if (ismember (XparamMARC, Increment10(:) )==1) 
Best_param_MARC = XparamMARC; 


else 


if colMARC_Av < colMARC_IOQR 
diff = abs(Increment10 - XparamMARC) ; 

[val,idx] = min(diff); 

Best_param_MARC = XparamMARC - val; 


elseif colMARC_Av > colMARC_IQR 
diff = abs(Increment10 - XparamMARC) ; 
[val,idx] = min(diff); 
Best_param_MARC = XparamMARC + val; 


end 


end 


%% Local Regression/Altitude Difference 
LRAD_Av = raw(18,:); 

LRAD_Av = cell2mat (LRAD_Av) ; 
[valLRAD_Av, colLRAD_Av] = min(LRAD_Av); 


LRAD_TIOR = raw(20,:); 
LRAD_ TOR cell2mat (LRAD_IQR) ; 
[valLRAD_TIQR, colLRAD_TIQR] = min(LRAD_IQR); 


ll 


XparamLRAD = (colLRAD_Av+colLRAD_IQR) /2; 


if (ismember (XparamLRAD, Increment10(:) )==1) 
Best_param_LRAD = XparamLRAD; 


else 
if colLRAD Av < colLRAD_IOR 
diff = abs(Increment10 - XparamLRAD) ; 
[val,idx] = min(diff); 
Best_param_LRAD = XparamLRAD - val; 


elseif colLRAD_Av > colLRAD_IOR 
diff = abs(Increment10 - XparamLRAD) ; 
[val,idx] = min(diff); 
Best_param_LRAD = XparamLRAD + val; 


end 
end 
%$% Local Regression/Rate of Climb 
LRRC_Av = raw(22,:); 
LRRC_Av = cell2mat (LRRC_Av) ; 


[valLRRC_Av, colLRRC_Av] = min(LRRC_Av); 


LRRC_IOR = raw(24,:); 
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LRRC_IQR = 
[valLRRC_IQR, colLRRC_IOR] = 


cell2mat (LRRC_IQR) ; 


XparamLRRC = 


if (ismember (XparamLRRC, 
Best_param_LRRC = XparamLRRC; 


else 
if colLRRC_Av < colLRRC_IOR 
diff = 
[val,idx] = min(diff); 
Best_param_LRRC = 


elseif colLRRC_Av > colLRRC_IQ 


diff = 
[val, idx] min(diff); 
Best_param_LRRC = XparamLR 


end 


end 


2° 
66 


Find best method 


min (LRRC_IQR) ; 


(colLRRC_Av+colLRRC_IQR) /2; 


Increment10(:))==1) 


abs (Increment10 - XparamLRRC) ; 


XparamLRRC - val; 


R 


abs (Increment10 - XparamLRRC) ; 


RC + val; 


VAL_DSAD = DSAD_IQR(Best_param_DSAD) + DSAD_Av(Best_param_DSAD) ; 
VAL_DSRC = DSRC_IQR(Best_param_DSRC) + DSRC_Av(Best_param_DSRC) ; 
VAL_MAAD = MAAD_ IQR(Best_param_MAAD) + MAAD_Av(Best_param_MAAD) ; 
VAL_MARC = MARC_IQR(Best_param_MARC) + MARC_Av(Best_param_MARC) ; 
VAL_LRAD = LRAD_IQR(Best_param_LRAD) + LRAD_Av(Best_param_LRAD) ; 
VAL_LRRC = LRRC_IQR(Best_param_LRRC) + LRRC_Av(Best_param_LRRC) ; 
Y = [VAL_DSAD VAL_DSRC VAL _MAAD VAL_MARC VAL_LRAD VAL_LRRC]; 


[Value, Index_Best_Method] = min(Y 


Best_method_PAT_NONPAT = 


xlswrite 
xlswrite 
xlswrite 
xlswrite 


(] 
(I 
(] 
(] 


Best_method_PAT_NONPAT, {' 


if Index_Best_Method== 
Messagel = 

Difference. 

',num2str(Best_param_DSAD),'.']; 
disp (Messagel1) 


i 


"Best_method_PAT_NONPAT.xlsx'; 


Best_method_PAT_NONPAT, {'Patterns'},'A2:A2"'); 
Best_method_PAT_NONPAT, {'Non-Patterns'}, 'A3:A3"'); 
Best_method_PAT_NONPAT, {'Function'},'B1l:Bl1'); 


Increment'},'C1:C1'); 


['The best method is Down-Sampling/Altitude 
Its corresponding parameter is n = 


xlswrite (Best_method_PAT_NONPAT, {'DSAD'},'B3:B3"'); 
xlswrite (Best_method_PAT_NONPAT, {Best_param_DSAD},'C3:C3'); 


end 

if Index_Best_Method== 
Message3 = 

Its corresponding parameter is n = 
disp (Message3) 


['The best method is Down-Sampling/Rate of Climb. 


',num2str (Best_param_DSRC),'.']; 


xlswrite (Best_method_PAT_NONPAT, {'DSRC'},'B3:B3"'); 
xlswrite (Best_method_PAT_NONPAT, {Best_param_DSRC},'C3:C3'); 


end 
if Index_Best_Method== 
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Message4 = ['The best method is Moving Average/Altitude 
Difference. Its corresponding parameter is m = 
',num2str(Best_param_MAAD),'.']; 

disp (Message4) 

xlswrite (Best_method_PAT_NONPAT, {'MAAD'},'B3:B3"'); 

xlswrite (Best_method_PAT_NONPAT, {Best_param_MAAD},'C3:C3'); 


end 
if Index_Best_Method== 
Message5 = ['The best method is Moving Average/Rate of Climb. 
Its corresponding parameter is m = ',num2str(Best_param_MARC),'.']; 
disp (Message5) 
xlswrite (Best_method_PAT_NONPAT, {'MARC'},'B3:B3"'); 
xlswrite (Best_method_PAT_NONPAT, {Best_param_MARC},'C3:C3'); 
end 
if Index_Best_Method== 


Message6 = ['The best method is Local Regression/Altitude 
Difference. Its corresponding parameter is p = 
',num2str(Best_param_LRAD),'.']; 

disp (Message6) 

xlswrite (Best_method_PAT_NONPAT, {'LRAD'},'B3:B3"'); 

xlswrite (Best_method_PAT_NONPAT, {Best_param_LRAD},'C3:C3'); 


end 
if Index_Best_Method== 
Message7 = ['The best method is Local Regression/Rate of Climb. 
Its corresponding parameter is p = ',num2str(Best_param_LRRC),'.']; 
disp (Message7) 
xlswrite (Best_method_PAT_NONPAT, {'LRRC'},'B3:B3"'); 
xlswrite (Best_method_PAT_NONPAT, {Best_param_LRRC}, 'C3:C3'); 
end 


profile off 
profile viewer 
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Matlab script defines finds the best methods given a number of flights with traffic 


B.3 


patterns only (MethodSelection_PATHandCodedSamples.m) 


clear all 
close all 


cle 


i 


fileparts (mfilename('fullpath') ) 


dir (fullfile ( 


root_folder 
files_all 


Um pw )°)ie 


'PAT', 


Vy 


root_folder 


all); 


length (files_ 


num_files_all 


num_files_all 


=1: 


fox 1. 


fullfile( 
fopen (filename) 


= textscan(fid, 
= textscan(fid, 


6 FILE NAME 


(i) .name) 


files_all 


'PAT', 


, 


root_folder 


filename 


fid 


i 


"delimiter', 


1, 


HDRS1 
HDRS2 


‘delimiter’, *,*); 


2, 


HDRS3 = textscan(fid, 


‘dalimniter™,*;.°)+ 


3, 


= textscan(fid, 


HDRS4 


"delimiter',','); 


4, 


textscan(fid, '%s 


data 


‘delimiter’, ,"); 


:Size (data, 2) 
size_column 


=1 


TOF oO 


size(data{1,o},1); 


(0) 


end 


7 


) 


-* ones(1,size(data,2)); 


size_column-vect_RL 


size_column 


min ( 
= Right_Length 


Right_Length 


vect_RL 


. 
v 


size (data, 2) 


if exc (u) 


eXc 


=1: 


for u 


[]; 


data{1,u} (end+1-exc (u) ) 


end 


end 


7 


data{78} 
assert (isempty (test_var{1})==0, 


test_var 


"Files are missing phase codes!') 


= size(data{1,1},1); 


(i) 


SIZE_FILES 


end 
SUM = 0; 
for i = 1l:length(SIZE_FILES) 
SUM = SUM + SIZE_FILES (i); 
if SUM>=33000 
SUM=SUM -— SIZE_FILES (i); 
Limit_number_samples = i-1; 
break 
else 
Limit_number_samples = i; 
end 
% end 
end 
TIME_TO_COMPUTE = SUM/19.7; 
prompt = ['This should take around ', 
num2str(roundn(TIME_TO_COMPUTE,2)), ' seconds (' , 


num2str(roun 
Crt tht Petts 


Bool2 tru 


while (Bool2) 


x = in 


if x== 


elseif 


elseif 


end 
end 


profile clea 
profile on 


d(TIME_TO_COMPUTE/60)), ' 


minute(s)) to compute. 


, use quotes)']; 


e; 


put (prompt) ; 


Ty 

Bool2 = false; 
is 

Bool2 = false; 
return 


x~='n! |x~='y' 
Message_error 


Bool2 true; 


ia 


['Unidentified answer.']; 


disp (Message_error) 


for i=1:Limit_number_samples 


% data=csvread(files (i) .name) 
filename = fullfile(root_folder, 'PAT', files_all(i).name); % 


fid = fopen ( 


% check if h 


% used to identify aircraft 


filename) ; 


and_coded 
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Continue? 


FIL! 


E NAME 
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"delimiter', 


1, 


= textscan(fid, 
= textscan(fid, 


HDRS1 
HDRS2 


'delimiter',','); 


2, 


HDRS3 = textscan(fid, 


‘delimiter',','); 


3, 


= textscan(fid, 


HDRS4 


'delimiter',','); 


4, 


textscan(fid, '%s 


data 


"delimiter',','); 


$% assign data 


lcltime 


data{1,2}; 


i 


str2double (data{1,9}) 


str2double(data{1,11}) 
GndSpd = str2double(data{1,12}); 


VSpd = str2double(data{1,13}) 


gle 


BaroA_withoutGoo 


. 
’ 


IAS 


7 


This part detects if the aircraft is a SR20 or a C172 


% 


7 


char (HDRS1{1,3}) 
if size(findstr (Airframe, 'Cirrus SR20'))~=0 


Airframe 


7 


str2double(data{1,27}) 


Stall_Airs 


E1_RPM 


peed = 60; % for SR20 aircraft 


Aircraft 
elseif size(findstr (Airframe, 'Cessna 172'))~=0 


‘Seen: 


= str2double(data{1,29}); 


Stall Airs 


E1l_RPM 


for C172 aircraft 


peed = 47; & 


Aircraft 


'C172'; 


end 


7 


str2double (data{1,78}) 


Phase_code 


Phase_code 


7 


) 


Phase_code 


an = cell2mat ( 
cellfun(@str2num, Phase 


Phase_code 


% 


code); 


fclose(fid); 
timestamp 


% 


length (lcltime) ; 


= 1 


i 


Easy_phase_id(timestamp, Baro 


"ASs',num2str (i) 
rspeed, IAS, E1_RPM, VSpd, GndSpd) 


sprintf ( 
Vector_EasyPhaselId 


Cell 


_Ai 


= gle, Stall 


A_withoutGoo 


ErrorsDSAD 


DSAD_func_errors 


gle, Phase_code, Vector_EasyPh 


A_withoutGoo 


(timestamp, Baro 


aseld,i); 


'var')==0 
root_folder 


if exist ('TableErrorsDSAD', 


‘Extra’, 


Vy 


fullfile( 


exigx™) > 


TableErrorsDSAD 
'TableErrorsDSAD_PAT 


end 


oe 


DSRC_func_errors (timestamp, BaroA_withoutGoogle, Phase_code, Vector_] 


xlswrite (Tablel 


ErrorsDSAD,! 


save ('TableErrorsDSAD.xl1s'); 


ErrorsDSRC 


aseld,i); 
if exist ('TableErrorsDSRC', 


TableErrorsDSRC = fullfile(root_folder, 


"'TableErrorsDSRC_PAT.xlsx"'); 


oe 


end 


xlswrite (Table! 


save (TableErrorsDSRC 


ErrorsMAAD 


ErrorsDSRC,! 


i 


MAAD_ func_errors (timestamp, ! 
aseld,i); 
if exist ('TableErrorsMAAD', 


TableErrorsMAAD = fullfile(root_folder, 


BaroA_withoutGoogle, Phase_code,Vector_! 


'TableErrorsMAAD PAT.xlsx'); 


oe 


end 


xlswrite (TableErrorsMAAD,} 


save (TableErrorsMAAD 


ErrorsMARC 


i 


MARC_func_errors (timestamp, ] 
aseld,i); 
if exist ('TableErrorsMARC', 


TableErrorsMARC = fullfile(root_folder, 


BaroA_withoutGoogle, Phase_code,Vector_} 


'TableErrorsMARC_PAT.xlsx'); 


ol? 


end 


xlswrite (Table! 


ErrorsMARC,! 


save (TableErrorsMARC 


ErrorsLRAD 


LRAD_func_errors (timestamp, | 
aseld,i); 
if exist ('TableErrorsLRAD', 


TableErrorsLRAD = fullfile(root_folder, 


i 


'TableErrorsLRAD_ PAT.xlsx'); 


ae 


end 


xlswrite (TableErrorsLRAD, |] 


save (TableErrorsLRAD 


ErrorsLRRC 


LRRC_func_errors (timestamp,! 
aseld,i); 
if exist ('TableErrorsL 


TableErrorsLRRC = fullfile(root_folder, 


i 


RRC', 


'TableErrorsLRRC_PAT.xlsx'); 


oe 


end 


end 


xlswrite (Table! 


save (TableErrorsLRRC 


ErrorsLRRC,! 


i 


'var')==0 


'var')==0 


'var')==0 


'var')== 


'var')==0 


ErrorsDSAD,1,Cell); 


"Extra', 


ErrorsDSRC,1,Cell); 


"Extra ; 


ErrorsMAAD,1,Cell); 


‘Ext ra", 


ErrorsMARC,1,Cell); 


BaroA_withoutGoogle, Phase_code,Vector_1} 


‘Extra’, 


ErrorsLRAD,1,Cell); 


BaroA_withoutGoogle, Phase_code, Vector_] 


"Extra ; 


ErrorsLRRC,1,Cell); 
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EasyPh 


EasyPh 


EasyPh 


EasyPh 


FasyPh 


ErrorsDSADmat 
AVERAGE_DS_AD 


ll 


IQR_DS_AD = igqr ( 


ErrorsDSRCmat 
AVERAGE_DS_RC 


AVERAGE_DS_AD 
IQR_DS_AD2 = 


ErrorsMAADmat 
AVERAGE_MA_AD 


2 -= 
igr 


xlsread(Table 


mean (ErrorsDSADmat) ; 


ErrorsDSADmat 


xlsread(Table 


i 


mean (ErrorsDSRCmat) ; 
TOR_DS_RC = iqr (ErrorsDSRCmat 


ErrorsDSAD1_20mat = xlsread(Table 
mean (ErrorsDSAD1_20mat) ; 
(ErrorsDSAD1_20mat) ; 


= xlsread(Table 
mean (ErrorsMAADmat) ; 


TOR_MA_ AD = igqr ( 


ErrorsMARCmat 
AVERAGE_MA RC 


= xlsread(Table 
ErrorsMARCmat) ; 


TOR_MA_RC = iaqr ( 


ErrorsLRADmat 
AVERAGE_LR_AD 


= xlsread(Table 
ErrorsLRADmat) ; 


TOR_LR_AD = igr( 


ErrorsLRRCmat 
AVERAGE__LR_RC 


= xlsread(Table 
RrrorsLRRCmat) ; 


TQR_LR_RC = igqr ( 


if exist('Test_Table', 
fullfile(root_folder, 


Test_Table = 
end 


Write_number_samples=[num2str (Limit_number_samples) 
xlswrite(Test_Table, {Write_number_samples}, 'Al:Al1'); 


Increment10 = 


xlswrite(Test_Table, Increment10, 'C1:KP1"'); 
Test_Table, {'Mean'},'B2:B2'); 
Test_Table, {'Mean'}, 
Test_Table, {'Mean'}, 
Test_Table, {'Mean'}, 
Test_Table, {'Mean'}, 
Test_Table, {'Mean'}, 
Test_Table, {'IOR'},' 
Test_Table, {'IQR'},' 
Test_Table, {'IQR'},' 
Test_Table, {'IQR'},' 
Test_Table, {'IQR'},' 
Test_Table, {'IQR'},' 


xlswrite 
xlswrite 
xlswrite 
xlswrite 
xlswrite 
xlswrite 
xlswrite 
xlswrite 
xlswrite 
xlswrite 
xlswrite 
xlswrite 


Nene ne ea aE 


1: 


ErrorsMAADmat 


mean ( 


mean ( 


mean ( 


12300; 


i 


i 


ErrorsMARC) ; 


ErrorsMARCmat) ; 


ErrorsLRAD) ; 


ErrorsLRADmat) ; 


ErrorsLRRC) ; 


ErrorsLRRCmat) ; 


'var')== 


"B6:B6"); 

"B10:B10'); 

"B14:B14"); 
) 
) 


f 


"B18:B18" 
"BZ2:B22" 


, 


B4:B4"'); 
B8:B8"'); 
B12-812" 


, 


B20+B20" 


, 


B24:B24' 


) 
B16é:B16"); 

) 

) 


’ 


xlswrite(Test_Table, {'DS/AD'},'A2:A2'); 
xlswrite(Test_Table, {'DS/RC'}, 'A6:A6'); 


ErrorsDSAD) ; 


ErrorsDSRC) ; 


ErrorsDSAD1_20); 


ErrorsMAAD) ; 


‘Extra’, 'Test_Table PAT.xlsx"); 


Samples']; 
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xlswrite(Test_Table, {'MA/AD'},'A10:A10' 
Test_Table, {'MA/RC'},'A14:A14' 
Test_Table, {'LR/AD'},'A18:A18' 
xlswrite(Test_Table, {'LR/RC'}, 'A22:A22' 


xlswrite 
xlswrite 


( 
( 
( 
( 


xlswrite 
xlswrite 
xlswrite 
xlswrite 
xlswrite 
xlswrite 
xlswrite 
xlswrite 
xlswrite 
xlswrite 
xlswrite 
xlswrite 


Nee ne aaa 


%% Selection of best method/parameter 


Test_Table, AVERAGE _DS_AD, 'C2:KP2'); 
Test_Table, IQR_DS_AD, 'C4:KP4"'); 
Test_Table, AVERAGE_DS_RC, 'C6:KP6'); 
Test_Table, IQR_DS_RC, 'C8:KP8"'); 
Test_Table, AVERAGE _MA AD, 'C10:KP10'); 
Test_Table, IOR_MA AD, 'C12:KP12'); 
Test_Table, AVERAGE_MA RC, 'C14:KP14"'); 
Test_Table, IOQR_MA_ RC, 'C16:KP16"'); 
Test_Table, AVERAGE _LR_AD, 'C18:KP18'); 
Test_Table, IOR_LR_AD, 'C20:KP20'); 
Test_Table, AVERAGE _LR_RC, 'C22:KP22'); 
Test_Table, IOR_LR_RC, 'C24:KP24'); 


filename = 'Test_Table_PAT.xlsx'; 

fid = fopen(filename, 'r'); 

[~,~,raw] = xlsread('Test_Table_PAT', 'C1:KP24"'); 
Increment10 = raw(1,:); 

Increment10 = cell2mat (Increment10) ; 

%% Down-Sampling/Altitude Difference 
DSAD_Av = raw(2,:); 

DSAD_Av = cell2mat (DSAD_Av); 

[valDSAD_Av, colDSAD_Av] = min(DSAD_Av); 
DSAD_TOR = raw(4,:); 

DSAD_TIOR = cell2mat (DSAD_IQR); 
[valDSAD_TIQR, colDSAD_TIQR] = min(DSAD_IQR)j; 
XparamDSAD = (colDSAD_Av+colDSAD_IQR) /2; 

if (ismember (XparamDSAD, Increment10(:) )==1) 


Best_param_DSAD = XparamDSAD; 
else 
if colDSAD_ Av < colDSAD_IOR 


diff = abs(Increment10 - XparamDSAD) ; 


[val,idx] = min(diff); 


elseif colDSAD_ Av > colDSAD_IOR 


Best_param_DSAD = XparamDSAD - val; 


diff = abs(Increment10 - XparamDSAD) ; 


[val, idx] = min(diff); 


Best_param_DSAD = XparamDSAD + val; 
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end 


end 


[oom) 


%$% Down-Sampling/Rate of Climb 

DSRC_Av = raw(6,:); 

DSRC_Av = cell2mat (DSRC_Av) ; 
[valDSRC_Av, colDSRC_Av] = min(DSRC_Av); 


DSRC_IOQR raw(8,:); 
DSRC_IOR = cell2mat (DSRC_IQR) ; 
[valDSRC_IQR, colDSRC_IQR] = min(DSRC_IQR); 


XparamDSRC = (colDSRC_Av+colDSRC_IQR) /2; 


if (ismember (XparamDSRC, Increment10(:) )==1) 
Best_param_DSRC = XparamDSRC; 


else 
if colDSRC_Av < colDSRC_IOQR 
diff = abs(Increment10 - XparamDSRC) ; 
[val,idx] = min(diff); 
Best_param_DSRC = XparamDSRC - val; 


elseif colDSRC_Av > colDSRC_IQR 
diff = abs(Increment10 - XparamDSRC) ; 
[val,idx] = min(diff); 
Best_param_DSRC = XparamDSRC + val; 


end 


%$% Moving Average/Altitude Difference 

D Av = raw(10,:); 

D_Av = cell2mat (MAAD_Av) ; 
[valMAAD_ Av, colMAAD_ Av] = min(MAAD_ Av); 


MAA 
MAA 


MAAD_ IQR = raw(12,:); 
MAAD_ IQR = cell2mat (MAAD_ IQR); 
[valMAAD_TQR, colMAAD_TQR] = min(MAAD_IQR); 


XparamMAAD = (colMAAD_Av+colMAAD_IQR) /2; 


if (ismember (XparamMAAD, Increment10(:) )==1) 
Best_param_MAAD = XparamMAAD; 


else 
if colMAAD Av < colMAAD_IOR 
diff = abs(Increment10 - XparamMAAD) ; 
[val,idx] = min(diff); 
Best_param_MAAD = XparamMAAD - val; 


elseif colMAAD Av > colMAAD_IOR 
diff = abs(Increment10 - XparamMAAD) ; 
[val,idx] = min(diff); 
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Best_param_MAAD = XparamMAAD + val; 


end 
end 


$% Moving Average/Rate of Climb 
MARC_Av = raw(14,:); 

MARC_Av = cell2mat (MARC_Av) ; 
[valMARC_Av, colMARC_Av] = min(MARC_Av); 


MARC_IOQR raw(16,:); 
MARC_IOR = cell2mat (MARC_IQR) ; 
[valMARC_IQR, colMARC_IQR] = min(MARC_IQR)j; 


XparamMARC = (colMARC_Av+colMARC_IQR) /2; 


if (ismember (XparamMARC, Increment10(:) )==1) 
Best_param_MARC = XparamMARC; 


else 


if colMARC_Av < colMARC_IOR 
diff = abs(Increment10 - XparamMARC) ; 

[val,idx] = min(diff); 

Best_param_MARC = XparamMARC - val; 


elseif colMARC_Av > colMARC_IOQR 
diff = abs(Increment10 - XparamMARC) ; 
[val,idx] = min(diff); 
Best_param_MARC = XparamMARC + val; 


end 
end 
%% Local Regression/Altitude Difference 
LRAD_Av = raw(18,:); 


LRAD_Av = cell2mat (LRAD_Av) ; 
[valLRAD_Av, colLRAD_Av] = min(LRAD_Av) ; 


LRAD_ITOR = raw(20,:); 


LRAD_TOR = cell2mat (LRAD_IQR) ; 
[valLRAD_TQR, colLRAD_TIQR] = min(LRAD_IQR); 
XparamLRAD = (colLRAD_Av+colLRAD_IQR) /2; 


if (ismember (XparamLRAD, Increment10(:))==1) 
Best_param_LRAD = XparamLRAD; 


else 
if colLRAD_ Av < colLRAD_IOR 
diff = abs(Increment10 - XparamLRAD) ; 
[val,idx] = min(diff); 
Best_param_LRAD = XparamLRAD - val; 


elseif colLRAD_Av > colLRAD_IOR 
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diff = 
[val,idx] = 
Best_param_LRAD = 


min(diff); 


end 


end 


[oe) 
Co 


Local Regression/Rate of Climb 
LRRC_Av = raw(22,:); 
LRRC_Av = cell2mat (LRRC_Av) ; 
[valLRRC_Av, colLRRC_Av] = 


LRRC_IOR = raw(24,:); 
LRRC_IOR = cell2mat (LRRC_IQR) ; 
[valLRRC_IQR, colLRRC_IQR] = 


XparamLRRC = 


if (ismember (XparamLRRC, 
Best_param_LRRC = XparamLRRC; 


else 
if colLRRC_Av < colLRRC_IOQR 
diff = 
[val,idx] = min(diff); 
Best_param_LRRC = 


elseif colLRRC_Av > colLRRC_IQ 


diff = 
[val, idx] min(diff); 
Best_param_LRRC = XparamLR 


end 


end 


Ie) 
Rao) 


Find best method 


XparamLRAD + val; 


min (LRRC_Av) ; 


min (LRRC_IQR) ; 


(colLRRC_Av+colLRRC_IQR) /2; 


Increment10(:))==1) 


XparamLRRC - val; 


R 


RC + val; 


abs (Increment10 - XparamLRAD) ; 


abs (Increment10 - XparamLRRC) ; 


abs (Increment10 - XparamLRRC) ; 


VAL_DSAD = DSAD_IQR(Best_param_DSAD) + DSAD_Av(Best_param_DSAD 
VAL_DSRC = DSRC_IQR(Best_param_DSRC) + DSRC_Av (Best_param_DSRC 
VAL_MAAD = MAAD_ IQR(Best_param_MAAD) + MAAD_ Av (Best_param_MAAD 
VAL_MARC = MARC_IQR(Best_param_MARC) + MARC_Av (Best_param_MARC 
VAL_LRAD = LRAD_IQR(Best_param_LRAD) + LRAD_Av (Best_param_LRAD 
VAL_LRRC = LRRC_IQR(Best_param_LRRC) + LRRC_Av (Best_param_LRRC 
Y = [VAL_DSAD VAL_DSRC VAL_MAAD VAL _MARC VAL_LRAD VAL _LRRC]; 


[Value, Index_Best_Method] = 
Best_method_PAT_NONPAT = 


min(Y 


xlswrite 
xlswrite 
xlswrite 
xlswrite 


(J 
(J 
(J 
(J 


if Index_Best_Method== 


i 


"Best_method_PAT_NONPAT.xlsx'; 


Best_method_PAT_NONPAT, {'Patterns'},'A2:A2'); 
Best_method_PAT_NONPAT, {'Non-Patterns'}, 'A3:A3'); 
Best_method_PAT_NONPAT, {'Function'},'Bl:Bl1'); 
Best_method_PAT_NONPAT, {'Increment'},'C1:Cl1"'); 


) 
) 
) 
) 
) 
) 


, 


' 


, 


, 


, 


, 
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Messagel = ['The best method is Down-Sampling/Altitude 
Difference. Its corresponding parameter is n = 
',num2str(Best_param_DSAD),'.']; 

disp (Messagel1) 

xlswrite (Best_method_PAT_NONPAT, {'DSAD'},'B2:B2"); 

xlswrite (Best_method_PAT_NONPAT, {Best_param_DSAD},'C2:C2'); 


end 
if Index_Best_Method== 
Message3 = ['The best method is Down-Sampling/Rate of Climb. 
Its corresponding parameter is n = ',num2str(Best_param_DSRC),'.']; 
disp (Message3) 
xlswrite (Best_method_PAT_NONPAT, {'DSRC'},'B2:B2"'); 
xlswrite (Best_method_PAT_NONPAT, {Best_param_DSRC}, 'C2:C2'); 
end 
if Index_Best_Method== 


Message4 = ['The best method is Moving Average/Altitude 
Difference. Its corresponding parameter is m = 
',num2str(Best_param_MAAD),'.']; 

disp (Message4) 

xlswrite (Best_method_PAT_NONPAT, {'MAAD'},'B2:B2"'); 

xlswrite (Best_method_PAT_NONPAT, {Best_param_MAAD},'C2:C2'); 


end 
if Index_Best_Method== 
Message5 = ['The best method is Moving Average/Rate of Climb. 
Its corresponding parameter is m = ',num2str(Best_param_MARC),'.']; 
disp (Message5) 
xlswrite (Best_method_PAT_NONPAT, {'MARC'},'B2:B2"'); 
xlswrite (Best_method_PAT_NONPAT, {Best_param_MARC},'C2:C2'); 
end 
if Index_Best_Method== 


Message6 = ['The best method is Local Regression/Altitude 
Difference. Its corresponding parameter is p = 
',num2str(Best_param_LRAD),'.']; 

disp (Message6é) 

xlswrite (Best_method_PAT_NONPAT, {'LRAD'},'B2:B2"'); 

xlswrite (Best_method_PAT_NONPAT, {Best_param_LRAD},'C2:C2'); 


end 
if Index_Best_Method== 
Message7 = ['The best method is Local Regression/Rate of Climb. 
Its corresponding parameter is p = ',num2str(Best_param_LRRC),'.']; 
disp (Message7) 
xlswrite (Best_method_PAT_NONPAT, {'LRRC'},'B2:B2"'); 
xlswrite (Best_method_PAT_NONPAT, {Best_param_LRRC},'C2:C2'); 
end 


profile off 
profile viewer 
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Matlab script that combines best methods found for both flight segments (MAIN.m) 


B.4 


clear all 


close all; 


clic? 


fileparts (mfilename('fullpath"')); 


root_folder 
files 


'* ses") ); 


'SAMPLES', 


, 


root_folder 


dir (fullfile ( 


profile clear 
profile on 
num_files 


= length(files); 


load data 
filename 


20 
core} 


FILE NAME 


files(j).name; % 


3/num_files}) 


disp ({filename, 


filename) ; 


FILE NAME 


ES', 


"SAMPL 


"A 113013 LO a_csv.csv' 


Vy 


root_folder 


filepath = fullfile( 


% 


7 


filename = 


fid 


% 


fopen(filepath) ; 


= textscan(fid, 


HDRS1 


‘delimiter',*,'); 


1, 


= textscan(fid, 


HDRS2 


. 
Vv 


delimiter”, '>%) 


1, 


HDRS3 = textscan(fid, 


"delimiter',','); 


1, 


= textscan(fid, 


HDRS4 


. 
lA 


“delimiter”, *, ") 


1, 


Ss 


oe 


textscan (fid, ' 


data 


"delimiter", *;")4 


:size (data, 2) 
size_column 


=1 


for oO 


size(data{1,o},1); 


(0) 


end 


7 


) 


-* ones(1,size(data,2)); 


size_column 


min ( 
= Right_Length 
size_column-vect_RL 


Right_Length 


vect_RL 


. 
lA 


size (data, 2) 


if exc(u) 


exc 


=1: 


for u 


[]; 


data{1,u} (end+1-exc (u) ) 


end 


end 


HDRS2; HDRS3]; 


= [HDRS1; 


HEADERS 
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Data_1l 


[data{:}]; 


Data_2 


[HEADERS; Data_1]; 


6% assign data 

lcldate = data{1,1}; 
lcltime = data{1,2}; 
UTCOfst data{1,3}; 
AtvWpt = data{1,4}; 


AltB = str2double(data{1,7})/3.28; 


Q 


% altimeter setting 
BaroA = str2double(data{1,8}); 


% altitude 

% maximum operating altitude 

A1tMSL = str2double(data{1,9})/3.28; 

BaroA_withoutGoogle = str2double(data{1,9}); 

OAT = str2double(data{1,10}); 

TAS = str2double(data{1,11}); 

GndSpd = str2double(data{1,12}); 

VSpd = str2double(data{1,13}); 

Pitch = str2double(data{1,14}); 

Phase_Code = str2double(data{1,78}); 

& This part detects if the aircraft is a SR20 or a C172 

Airframe = char (HDRS1{1,3}); 

if size(findstr (Airframe, 'Cirrus SR20'))~=0 

E1l_RPM = str2double(data{1,27}); 
Stall_Airspeed = 60; % for SR20 aircraft 
Aircraft = 'SR20'; 

elseif size(findstr (Airframe, 'Cessna 172'))~=0 

E1l_RPM = str2double(data{1,29}); 
Stall_Airspeed = 47; % for C172 aircraft 
Aircraft = 'C172'; 

end 


fclose(fid); 
6% Phases of Flight Identification 


timestamp = 1:length(lcltime) ; 
Matrix_Timestamp_PATTERNI1 = {}; 
Matrix_Timestamp_NOPATTERN = {}; 


6% Generic Plot Settings 


save_figure = true; 
plot_in_color = false; 
FontSize = 9; 


LegendFontSize = 9; 
FontName = 'Helvetica'; 
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FigWidth = 8.1; Sinches 
FigHeight = 6; Sinches 
DataLineWidth = 1; Spoints 
TheoryLineWidth = 1; Spoints 
AxisLineWidth = 1; Spoints 
DataMarkerSize = 5; S%points 
figure (j) 

hold on 


set (gcf, 'Units','Inches','Position', [2 2 FigWidth FigHeight/2]); 
plot (BaroA_withoutGoogle); % plots Altitude without phases of flight 
detection 

set (figure(j),'Name', ['Altitude over time for ' filename]); % Helpful 
to set a name to identify plot 


xlabel('Time (s)"') 
ylabel('Altitude (ft)") 


% TOUCHDOWN : any time the wheels touch the runway. 
Stall airspeed is reached at touchdown, so IAS is between 25kts and 
Stall airspeed. 
Sapproximately. More than 25 kts otherwise the points would be plotted 
Suntil the aircraft stops (so all along the runway). 
%I considered a previous descent (<-150 fpm to keep a margin of 50 fpm 
compared to the definition of descent (200 fpm)) for at least 60s (30s 
is not enough for 
scertain flights, it detected touchdown at a too high altitude). I also 
Sadded an assumption about a previous negative average of vertical 
speed 
% (redundancy). 
%I save the touchdown altitudes to use them for approach, takeoff, 
Scruise (cruise not at touchdown altitude) and go-around. 
Timestamp_TouchDown = zeros (size (BaroA_withoutGoogle) ); 
Altitude_Touchdown = zeros(size(BaroA_withoutGoogle) ); 
for i1=60:length (BaroA_withoutGoogle) 
if IAS(i)>25 && IAS(i)<1.05*Stall_Airspeed && 
(BaroA_withoutGoogle (i) -BaroA_withoutGoogle(i-59))<-150 && sum(VSpd(i- 
59) :VSpd(i)) /60<0 
Altitude_Touchdown (i) =BaroA_withoutGoogle (i); 
Timestamp_TouchDown (i) =timestamp (i); 
hold on; h(:,3)=plot (timestamp (i), 
Altitude_Touchdown (i),'0', 'MarkerSize',5); 
set(h(:,3), {'MarkerFaceColor'}, {[1,0.7,0.4]}); 
set (h(:,3),{'MarkerEdgeColor'}, {[1,0.7,0.4]}); 


2 
oO 
2 
at 


end 
end 
Timestamp_TouchDown_nonzero = 
Timestamp_TouchDown (Timestamp_TouchDown~=0) ; 
Altitude_Touchdown_nonzero = Altitude_Touchdown (Altitude_Touchdown~=0) ; 
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6% TAXIWAY PHAS 
% IAS is nearly zero when the aircraft moves on taxiway. That's why I 
chose 


Gl 


% “IAS (i)<1". Then the Ground Speed has to be more than zero and less 
than 


% 25kts approximately, in order to separate taxiway from takeoff phase. 


& let "maximum altitude" assumption in comments if we need another 
% "security" condition (same for Standing phase, see below). I added 
"E1 RPM(i)<0.95*max(E1_RPM)" to be sure that Taxiway do not overlay 
& Takeoff phase (still in comments), and I saved taxiway altitude and 
timestamp to use them 
%& for Takeoff definition. 
Timestamp_Taxiway = zeros(size(BaroA_withoutGoogle) ); 
Altitude_Taxiway = zeros (size (BaroA_withoutGoogle) ); 
for i=1:length (BaroA_withoutGoogle) 
if GndSpd(i)<25 && GndSpd(i)>0O && IAS(i)<l1 
Altitude_Taxiway (i) =BaroA_withoutGoogle (i); 
Timestamp_Taxiway (i) =timestamp (i); 
hold on; 
h(:,5)=plot (Timestamp_Taxiway (i) ,Altitude_Taxiway(i),'r.','MarkerSize', 
DataMarkerSize) ; 
end 


6% TAKEOFF PHASE 
$I considered the full power ("0.80*max(E1_RPM)") and the altitude less 
than 

$35 ft + the altitude of the nearest airport. I considered two kinds of 
sTakeoff (no difference on the plot, just in the code): after Taxiway 
phase 

$(2)and after a Touchdown (1) (touch and go). There are many ways to 
write this 

spart but I decided to find the minimum difference between Touchdown 
anda 

Sgiven value of timestamp, same for Taxiway. Thus it will find the 
nearest 

Svalues of Taxiway and Touchdown in order to deal with their altitude 


% ("BaroA_withoutGoogle(i)< 35+Altitude_Touchdown (idx1)"). 

"abs (idxl-timestamp (i) )<abs (idx2-timestamp(i))" is made to know if the 
Snearest value is a taxiway point or a touchdown point. If it is a 
Stouchdown, then use Altitude_Touchdown(idx1l). If it is a Taxiway, then 
use 

SAltitude_Taxiway (idx2). I made this to be sure the code knows which 
Saltitude it has to consider for 
S"BaroA_withoutGoogle(i)<35+AltitudeAirport" (example). Because the 
Saltitude of the airport can vary during the flight (different 
airports, 


Scross country). 


Timestamp_Takeoff1 zeros (Size (BaroA_withoutGoogle) ); 
Timestamp_Takeoff2 = zeros(size(BaroA_withoutGoogle) ); 
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for i=1:length (BaroA_withoutGoogle) 
[1,idx1]=min (abs (Timestamp_TouchDown_nonzero(:)-timestamp(i))); 
[1,idx2]=min (abs (Timestamp_Taxiway (:)-timestamp(i))); 


if El_RPM(i)>=0.80*max(E1_RPM) && (BaroA_withoutGoogle(i)< 
35+Al1titude_Touchdown_nonzero(idxl1)) && 
abs (Timestamp_TouchDown_nonzero (idx1) -timestamp (i) ) <abs (idx2- 
timestamp (i) ) 
hold on; h(:,6)=plot (timestamp (i), 
BaroA_withoutGoogle(i),'o', 'MarkerSize',3); 


Timestamp_Takeoff1(i)=timestamp(i); % after a Touch and go 

set(h(:,6), {'MarkerFaceColor'}, {[0,0.5,0]}); 

set (h(:,6),{'MarkerEdgeColor'}, {[0,0.5,0]}); 

else if E1_RPM(i)>=0.80*max(E1_RPM) && (BaroA_withoutGoogle(i)< 
35+Altitude_Taxiway (idx2))&& abs (Timestamp_TouchDown_nonzero (idx1) - 
timestamp (i) ) >abs (idx2-timestamp (i) ) 
hold on; h(:,6)=plot (timestamp (i), 

BaroA_withoutGoogle(i),'o', 'MarkerSize',3); 


Timestamp_Takeoff2(i)=timestamp(i); % after Taxi phase 
set(h(:,6), {'MarkerFaceColor'}, {[0,0.5,0]}); 
set (h(:,6),{'MarkerEdgeColor'}, {[0,0.5,0]}); 
end 
end 


%% GO-AROUND 

% I try to get minima (peak) of altitude (BaroA_withoutGoogle) to 
detect go-around. 

"600" because I consider the maximum interval (to make a pattern) 
equal to 

% 10 minutes (60"*10). 

SWhile go-around, the pilot use full power earlier than for a touchdown 
(95% of maximum value is enough compared to takeoff one (80%), but we 
can change it to 80%, it only adds margins), as 

She wants to climb asap. For a Touchdown (touch and go), the pilot 
waits a bit while 

Srolling on the runway. Except exceedance, stall airspeed should not be 
sreached during a go-around. 

$I added "mintab(i,2)> Altitude_Touchdown (Timestamp_TouchDown (idx) )" 
because I had problems with 

$"A 123013 LI a_csv.csv" for example as it detected touchdown and go- 
around 

Sat same altitude. Indeed Touchdown was correctly detected but as the 
pilot 

Saccelerate (full power) to climb again, Go-around was detected. (This 
is 

sthe same way as for previous phases definitions, I try to find the 
nearest 

Stouchdown/ the shortest time separating touchdown and given value of 
Stimestamp to know the altitude of this touchdown, then I set the 
limits). 

SI chose "mintab(i,2)< 

400+Altitude_Touchdown (Timestamp_TouchDown (idx) )" 

sand "mintab(i,2)> Altitude_Touchdown (Timestamp_TouchDown (idx) )" 
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$(mintab(i,2) is the altitude of the peak and mintab(i,1) is the 
timestamp 

sof the peak) to say that a Go-around is located between 0 and 400 ft 
above 

Sa corresponding airport.Otherwise it detects a Go-round 

Sat a too high altitude for "A 033114 LBD a_csv.csv" file. 
Timestamp_Goaround = zeros (size (BaroA_withoutGoogle) ); 

[maxtab, mintab] = peakdet (BaroA_withoutGoogle, 600,timestamp) ; 


for i=1:length (mintab) 
[1,idx]=min (abs (Timestamp_TouchDown_nonzero(:)-mintab(i,1))); 
if size(mintab)==[1,2] % I used this if loop with "break" to avoid 
errors with files "A 113013 LO a_csv.csv" and "A 0043014 LM a_csv.csv". 
There is no go-around during these flights so I avoid this phase 
definition and errors about mintab size (too litle to be considered in 
next loop). 
break 
end 
if El1_RPM(mintab(i,1))>0.7*max(E1_RPM) && 
IAS (mintab(i,1))>Stall_Airspeed && mintab(i,2)< 
400+Altitude_Touchdown_nonzero(idx) && mintab(i,2)> 
Altitude_Touchdown_nonzero (idx) 
hold on; h(:,7) = plot(mintab(i,1), mintab(i,2), 
'o', 'MarkerSize',5,'MarkerFaceColor','y', 'MarkerEdgeColor','y'); 
for Go-around 
Timestamp_Goaround(i) = mintab(i,1); 
end 
end 


oe 


%% Detection and Recording of pattern timestamps 


if any (Timestamp_Takeoff1)==1 % if there is a takeoff after a Touch & 
go 
XTol = zeros (size (BaroA_withoutGoogle) ); 
for i = 1:length(XTol) 

if any(Timestamp_Takeoffl==i) %if any value from this vector is 
equal to increment 

XTol(i) = i; 

end 
end 
end 
if any (Timestamp_Takeoff2)==1 % if there is a takeoff after a Taxi 
phase 
XTo2 = zeros (size (BaroA_withoutGoogle) ); 
for i = 1:length(XTo2) 

if any (Timestamp_Takeoff2==i) %if any value from this vector is 
equal to increment 

XTo2(i) = i; 

end 
end 
end 


XTo = XTo2; 
for i=1:length (XTo) 
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if any (Timestamp_Takeoff1)==1 
if XTol(i)~=0 
XTo(i) = XTol (i) : 
end 
end 
end 


if any (Timestamp_Goaround) == 


XGa = zeros (size (BaroA_withoutGoogle) ); 
for i = 1:length(XGa) 

if any (Timestamp_Goaround==i) %if any value from this vector is 
equal to increment 

XGa(i) = i; 

end 
end 
end 


XTd = zeros (size (BaroA_withoutGoogle) ); 
for i = 1:length(XTd) 


if any (Timestamp_TouchDown==i) ‘%if any value from this vector is 
equal to increment 
XTd(i) = i; 
end 
end 
if any (Timestamp_Goaround)==1 % Here I merged all Takeoff, Go-around 


(if any), and Touchdowns timestamps (in a vector size equal to the 
flight duration, filled by zeros when those phases do not occur) 
XToTdGa = XTo + XTd + XGa; 
XTdGa = XTd + XGa; 
XToGa = XTo + XGa; 
else 
XToTdGa = XTo + XTd; 
XTdGa = XTd; 
end 
XToTdGa_without_zeros = XToTdGa (XToTdGa~=0) ; 


a2 = (XToTdGa~=0); % detects all Takeoffs, TouchDowns and Go-arounds 
d2 = diff(a2); % sets the difference between those phases represented 
by the timestamp when it occurs 

start2 = find(d2==1); % Start index of each group, finds the 
beginning of a takeoff phase for instance 

finish2 = find(d2 ==-1); % Last index of each group 

diffsize2 = size(start2 ,1) - size(finish2,1); 


if diffsize2<0 

finish2=finish2 (1:end-abs (diffsize2)); 
elseif diffsize2>0 

start2=start2(l:end-abs (diffsize2)); 


end 
len2 = find(d2 ==-1)-start2+1; % Length, number of indexes in each 
group 


for i = 1:length(len2) 
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if exist ('XGa','var')==1 % if there is any Go-around in the flight 
if len2(i)<3 & len2(i)>0O & start2(i)~=XGa(XGa~=0) -1 
len2(i) = 0; 
start2(i) = 
finish2 (i 
end 
else 
if len2(i)<3 & len2(i)>0 % no phase like Touchdown, Takeoff 
should last less than 5 seconds 


0; 
) = 0; 


len2(i) = 0; 
start2(i) = 0; 
finish2(i) = 0; 
end 
end 
end 
excludes all zeros 


len2 (len2==0) = []; 
start2 (start2==0) = 
finish2 (finish2==0) 


Diff_start2 = diff (start2); 

start2 (Diff_start2<200) = []; 
Diff_start2 (Diff_start2<200) = []; 
Diff_start2 = [Diff_start2; 0]; 


a3 = (XTdGa~=0); % Same for a2 but without takeoff phase recorded 
d3 = diff(a3); 

start3 = find(d3==1); % Start index of each group 
finish3 = find(d3 ==-1); % Last index of each group 

diffsize3 = size(start3 ,1) - size(finish3,1); 


if diffsize3<0 

finish3=finish3(l:end-abs (diffsize3)); 
elseif diffsize3>0 

start3=start3(l:end-abs (diffsize3)); 


end 
len3 = find(d3 ==-1)-start3+1; % Length, number of indexes in each 
group 


for i = 1:length(len3) 
if exist ('XGa', 'var')==1 
if len3(i)<3 & len3(i)>0O & start3(i)~=XGa (XGa~=0) -1 
len3(i) = 0; 
start3(i) = 
finish3 (i 


0; 
) = 0; 
end 
else 
if len3(i 
len3(i) = 
start3 (i) 
finish3 (i 
end 
end 
end 


)<3 & len3(i)>0 
0; 
= 0; 
) = 0; 
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len3(len3==0) = []; 
start3 (start3==0) = []; 
finish3 (finish3==0) = []; 
Diff_start3 = diff(start3); 
Diff_start3 = [Diff_start3; 0]; 


for i = 1l:length(Diff_start2) 
if Diff_start2(i) <= 700 && Diff_start2(i) >= 200 % if between two 
touchdowns/Go-arounds (if any), there are between 200 and 700 seconds, 
this is a pattern 
Timestamp_PATTERN1 = 
timestamp (start2(i)):l:timestamp(start2 (itl) ); 
Matrix_Timestamp_PATTERN1{i}=Timestamp_PATTERN1'; 
Factor_3 = 2; 
Case_To_follows_Td_right_after1l=1; 


end 
end 


if size (Matrix_Timestamp_PATTERN1) ~=0 
for i=1:length (Matrix_Timestamp_PATTERN1) 
if max (BaroA_withoutGoogle (Matrix_Timestamp_PATTERN1{i}))- 
min (BaroA_withoutGoogle (Matrix_Timestamp_PATTERN1{i}))<150 
Matrix_Timestamp_PATTERN1{i}=[]; 
end 


end 


Matrix_Timestamp_PATTERN1 (cellfun (@(Matrix_Timestamp_PATTERN1) 
isempty (Matrix_Timestamp_PATTERN1) ,Matrix_Timestamp_PATTERN1) )=[]; 


end 


Diff2Diff3=intersect (Diff_start2,Diff_start3,'stable'); tPatterns in 
common for Diff2 and Diff3 


NONDiff2Diff3=setxor (Diff_start2,Diff_start3, 'stable'); % Patterns not 
in common with Diff2 and Diff3 


file_ methods = fullfile(root_folder, 'Best_method_PAT_NONPAT.xlsx"'); 
fid = fopen(file_methods, 'r'); 
[~,~, square] = xlsread(file_methods, 'B2:C3'); 


square (1,2); 
cell2mat (Increment_OptimizationPAT) ; 


Increment_OptimizationPAT 
Increment_OptimizationPAT 
MethodPAT = square(1,1); 
MethodPAT = char (MethodPAT) ; 
MethodPAT str2func (MethodPAT) ; 


Increment_OptimizationNONPAT = square(2,2); 
Increment_OptimizationNONPAT cell2mat (Increment_OptimizationNONPAT) ; 
MethodNONPAT = square(2,1); 
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MethodNONPAT 
MethodNONPAT 


char (MethodNONPAT) ; 
str2func (MethodNONPAT) ; 


if size (Matrix_Timestamp_PATTERN1, 2) ~=0 
for i=1:length (Matrix_Timestamp_PATTERN1) 


Altitude_Pattern1l=BaroA_withoutGoogle (Matrix_Timestamp_PATTERN1{i}); 


[Vector_Patternl] = MethodPAT (Matrix_Timestamp_PATTERN1 {i}, 
Altitude_Patternl, Increment_OptimizationPAT); % uses best method to 


detect patterns 
Matrix_Vector_PATTERN1{i}=Vector_Patternl1; 


end 
end 
6% Rest of the flight except easy phases 


Timestamp_NoPattern = timestamp; 

if size (Matrix_Timestamp_PATTERN1, 2) ~=0 
ArrayTimePatternsl = arrayfun (@ (idx) 

vertcat (Matrix_Timestamp_PATTERN1{idx,:}), 
1:size(Matrix_Timestamp_PATTERN1,1), '‘un', 0); 


ArrayTimePatternsl = cell2mat (ArrayTimePatterns1); 
Timestamp_NoPattern (intersect (timestamp, ArrayTimePatterns1) )=0; 
Timestamp_NoPattern = Timestamp_NoPattern'; 
end 
a4 = (Timestamp_NoPattern~=0); % detects all segments without patterns 
d4 = diff(a4); 
start4 = find(d4==1); & Start index of each group 
if size(start4,1)<size(start4,2) 
start4 = start4'; 
end 
if a4(1)== 
start4 = [start4 ;Timestamp_NoPattern(1)]; 
start4 = sortrows (start4); 
end 
finish4 = find(d4 ==-1); % Last index of each group 


if size(finish4,1)<size(finish4, 2) 
finish4 = finish4'; 


end 

if a4 (end) == 
finish4 = [finish4 ;Timestamp_NoPattern (end) ]; 
finish4 = sortrows(finish4); 

end 


start4 (start4==0) = []; 

finish4 (finish4==0) = []; 

all4 = [start4;finish4]; 

all4 sort (all4); 

Diff_start4 = diff(all4); 

Diff_start4 = [Diff_start4; 0]; 

if any(a4(:) < 1) && a4(1)== 
Diff_start4(1) = []; 
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end 

if any(a4(:) < 1) && a4(end)== 
Diff_start4(end-1) = []; 

end 


for i = 1l:length(start4) 
Timestamp_NOPATTERN = 
timestamp (start4(i)):l:timestamp (finish4 (i)); 
Matrix_Timestamp_NOPATTERN{i}=Timestamp_NOPATTERN'; 


end 
if size (Matrix_Timestamp_NOPATTERN, 2) ~=0 
for i=1:length (Matrix_Timestamp_NOPATTERN) 
if max (BaroA_withoutGoogle (Matrix_Timestamp_NOPATTERN{i}))- 
min (BaroA_withoutGoogle (Matrix_Timestamp_NOPATTERN{i}))<150 
Matrix_Timestamp_NOPATTERN{i}=[]; 


end 
end 
Matrix_Timestamp_NOPATTERN (cellfun (@ (Matrix_Timestamp_NOPATTERN) 
isempty (Matrix_Timestamp_NOPATTERN) , Matrix_Timestamp_NOPATTERN) )=[]; 
end 


if size (Matrix_Timestamp_NOPATTERN, 2) ~=0 
for i=1:length (Matrix_Timestamp_NOPATTERN) 


Altitude_NOPattern=BaroA_withoutGoogle (Matrix_Timestamp_NOPATTERN{i}); 
[Vector_NOPattern] = 
MethodNONPAT (Matrix_Timestamp_NOPATTERN{i},Altitude_NOPattern, Increment 
_OptimizationNONPAT) ; 
Matrix_Vector_NOPATTERN{i}=Vector_NOPattern; 
end 


VECTOR_all = zeros (length(timestamp) ,1); 


for i=1:length (Matrix_Timestamp_NOPATTERN) 


VECTOR_all (Matrix_Timestamp_NOPATTERN{1,i})=Matrix_Vector_NOPATTERN{1,i 
}; 
end 
if size (Matrix_Timestamp_PATTERN1, 2) ~=0 
for i=1:length (Matrix_Timestamp_PATTERN1) 


VECTOR_all (Matrix_Timestamp_PATTERN1{1,i})=Matrix_Vector_PATTERN1{1,i}; 
end 


end 
end 


% APPROACH PHASE : 
First and last assumptions are Descent phase ones. (VSpd assumption in 


° 
oO 
° 

oO 
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Scomments for same reason as in Descent or Climb definition. See 
comments 

Sin those parts) 

SThen "BaroA_withoutGoogle (i) <1000+Altitude_Touchdown (idx)" means that 
the 

Saltitude has to remain less than 1000ft above nearest airport 
Saltitude ("Altitude_Touchdown"). 

SI took "max" because most of Altitude_Touchdown are zeros. 
Timestamp_TouchDown_nonzero = 

Timestamp_TouchDown (Timestamp_TouchDown~=0) ; 
Altitude_Touchdown_nonzero = Altitude_Touchdown (Altitude_Touchdown~=0) ; 
Timestamp_Approach = zeros (size (BaroA_withoutGoogle) ); 


for i=1:length (BaroA_withoutGoogle) -30 
[1,idx]=min (abs (Timestamp_TouchDown_nonzero(:)-timestamp(i)))j; 
Shelps finding nearest timestamp value (of touchdown) for approach. 
"idx" is the timestamp value for nearest touchdown. 
if (BaroA_withoutGoogle (i+29)—-BaroA_withoutGoogle(i))<-100 && 
BaroA_withoutGoogle(i)<1000+ Altitude_Touchdown_nonzero (idx) 


Timestamp_Approach(i) = timestamp (i); 
Altitude_Approach(i) = BaroA_withoutGoogle (i); 
Interval_Approach_timestamp = timestamp(i) : timestamp (i+29); 


Interval_Approach = 
BaroA_withoutGoogle(Interval_Approach_timestamp) ; 
h(:,4)=plot (Timestamp_Approach (i) ,Altitude_Approach (i), 
"b.', 'MarkerSize',DataMarkerSize); 
end 
end 


%% STANDING PHASE 
% I defined Standing phase by a null Groundspeed and null IAS (to be 
sure 
% the aircraft is not moving) 
Timestamp_Standing = zeros (size (BaroA_withoutGoogle) ); 
for i=1:length (BaroA_withoutGoogle) 

if GndSpd(i)==0 && IAS(i)==0 3 && 
BaroA_withoutGoogle(i)<1.2*min (BaroA_withoutGoogle) 

Timestamp_Standing(i)=timestamp (i); 
hold on; h(:,8)=plot (timestamp (i), 

BaroA_withoutGoogle(i),'c.', 'MarkerSize',DataMarkerSize) ; 

end 
end 


sHere I try to build one vector with all phases combined 


XSt = zeros (size (BaroA_withoutGoogle) ); 
for i = 1:length(XSt) 

if any (Timestamp_Standing==i) %if any value from this vector is 
equal to increment 

XSt(i) = i; 

end 
end 
XTx = zeros (size (BaroA_withoutGoogle) ); 


for i = 1:length (XTx) 
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if any (Timestamp_Taxiway==i) %if any value from this vector is 
equal to increment 
XTx(i) = i; 
end 
end 
XAp = zeros (size (BaroA_withoutGoogle) ); 
for i = 1:length(XAp) 
if any (Timestamp_Approach==i) %if any value from this vector is 
equal to increment 
XAp(i) = i; 
end 
end 


$I assign number to particular phases 


XSt (XSt~=0) = 2; 

XTx (XTx~=0) = 3; 

if any (Timestamp_Takeoff1)==1 
XTol (XTol~=0) = 4; 

end 

if any (Timestamp_Takeoff2) == 
XTo2 (XTo2~=0) = 4; 

end 

XAp (XAp~=0) = 8; 

if any (Timestamp_Goaround) == 
XGa (XGa~=0) = 10; 

end 

XTd(XTd~=0) = 9; 


XTo = XToO2; 
for i=1:length (XTo) 
if any (Timestamp_Takeoff1)==1 
if XTol (i) ~=0 
XTo(i) = XTol (i) 7 
end 
end 
end 


for i=1:length (VECTOR_all1) 
if XAp(i)~=0 


VECTOR_all(i) = XAp(i); 
end 
if XTo(i)~=0 

VECTOR_all(i) = XTo(i); 
end 
if XTx(i)~=0 

VECTOR_all(i) = XTx(i); 
end 
if XSt (i) ~=0 

VECTOR_all(i) = XSt(i); 


if any (Timestamp_Goaround) == 
if XGa(i)~=0 
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VECTOR_all(i) = XGa(i); 

end 

end 

if XTd(i)~=0 

VECTOR_all(i) = XTd(i); 

end 
end 
% VECTOR_all(VECTOR_all==0) = NaN; % Vector is the array with all 
phases coded by numbers 
nan_values = sum(isnan(VECTOR_all)); 
G_A = sum(VECTOR_all(:)==10); 
T_D = sum(VECTOR_all (:)==9); 
I display the final Vector in the workplace 
VECTOR_all_cellarray = [0;0;0;VECTOR_all]; 
VECTOR_all_cellarray = num2cell(VECTOR_all_cellarray) ; 
Header_Vector = 'Phases of Flight - Output'; 
VECTOR_all_cellarray{1l} = ''; 
VECTOR_all_cellarray{2} = ''; 
VECTOR_all_cellarray{3} = Header_Vector; 
OUTPUT_cellarray = [Data_2,VECTOR_all_cellarray]; 


delete (fullfile(root_folder, 'OUTPUT', ['OUTPUT_' filename]) ) 
cell2csv(fullfile(root_folder, 'OUTPUT', ['OUTPUT_' 
filename]),OUTPUT_cellarray,',') 


end 
profile off 
profile viewer 
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B.5: Matlab function of Simple phase of flight Identification (Easy_phase_id.m) 


function 
[Vector_EasyPhaseld]=Easy_phase_id(Timestamp_Input,Altitude_Input, Stall 
_Airspeed, IAS,E1_RPM, VSpd, GndSpd) 


%% TOUCHDOWN : any time the wheels touch the runway. 

SStall airspeed is reached at touchdown, so IAS is between 25kts and 
Stall airspeed. 

Sapproximately. More than 25 kts otherwise the points would be plotted 
Suntil the aircraft stops (so all along the runway). 

%I considered a previous descent (<-150 fpm to keep a margin of 50 fpm 
compared to the definition of descent (200 fpm)) for at least 60s (30s 
is not enough for 

scertain flights, it detected touchdown at a too high altitude). I also 
Sadded an assumption about a previous negative average of vertical 
speed 

% (redundancy). 

$I save the touchdown altitudes to use them for approach, takeoff, 
Scruise (cruise not at touchdown altitude) and go-around. 


for i1=60:length (Altitude_Input) 
if IAS(i)>25 && IAS(i)<1.05*Stall_Airspeed && (Altitude_Input (i)- 
Altitude_Input (i-59))<-150 && sum(VSpd(i-59) :VSpd(i))/60<0 
Altitude_Touchdown (i) =Altitude_Input (i); 
Timestamp_TouchDown (i) =Timestamp_Input (i); 


& hold on; h(:,3)=plot (Timestamp_Input (i), 

Altitude_Touchdown(i),'o', 'MarkerSize',5); 

% set (h(:,3), {'MarkerFaceColor'}, {[1,0.7,0.4]}); 

% set (h(:,3),{'MarkerEdgeColor'}, {[1,0.7,0.4]}); 
end 

end 


Timestamp_TouchDown_nonzero = 
Timestamp_TouchDown (Timestamp_TouchDown~=0) ; 
Altitude_Touchdown_nonzero = Altitude_Touchdown (Altitude_Touchdown~=0) ; 


assignin('base', 'Timestamp_TouchDown_nonzero', Timestamp_TouchDown_nonze 
ro); 
assignin('base', 'Altitude_Touchdown_nonzero',Altitude_Touchdown_nonzero 


~~ 
_ 


% TAXIWAY PHAS 
IAS is nearly zero when the aircraft moves on taxiway. That's why I 

chose 

% “IAS (i)<1". Then the Ground Speed has to be more than zero and less 

than 


% 25kts approximately, in order to separate taxiway from takeoff phase. 


Gl 


6 let "maximum altitude" assumption in comments if we need another 

% "security" condition (same for Standing phase, see below). I added 
"E1 RPM(i)<0.95*max(E1_RPM)" to be sure that Taxiway do not overlay 
% Takeoff phase (still in comments), and I saved taxiway altitude and 
timestamp to use them 

%& for Takeoff definition. 


oe 
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for i=1:length (Altitude_Input) 
if GndSpd(i)<25 && GndSpd(i)>0O && IAS(i)<1 %&& 
E1l_RPM(i)<0.95*max(E1_RPM) % && 
BaroA_withoutGoogle (i)<1.2*min (BaroA_withoutGoogle) 
Altitude_Taxiway (i) =Altitude_Input (i); 
Timestamp_Taxiway (i) =Timestamp_Input (i); 
% hold on; 
h(:,5)=plot (Timestamp_Taxiway (i) ,Altitude_Taxiway(i),'r.','MarkerSize', 
DataMarkerSize); 
end 


%% TAKEOFF PHASE 
%I considered the full power ("0.80*max(E1_RPM)") and the altitude less 
than 

$35 ft + the altitude of the nearest airport. I considered two kinds of 
STakeoff (no difference on the plot, just in the code): after Taxiway 
phase 

$(2)and after a Touchdown (1) (touch and go). There are many ways to 
write this 

Spart but I decided to find the minimum difference between Touchdown 
and a 

Sgiven value of timestamp, same for Taxiway. Thus it will find the 
nearest 

svalues of Taxiway and Touchdown in order to deal with their altitude 

% ("BaroA_withoutGoogle(i)< 35+Altitude_Touchdown (idx1)"). 

"abs (idxl-timestamp (i) )<abs (idx2-timestamp(i))" is made to know if the 
Snearest value is a taxiway point or a touchdown point. If it is a 
Stouchdown, then use Altitude_Touchdown(idx1l). If it is a Taxiway, then 
use 

SAltitude_Taxiway(idx2). I made this to be sure the code knows which 
S$altitude it has to consider for 
S"BaroA_withoutGoogle(i)<35+AltitudeAirport" (example). Because the 
Saltitude of the airport can vary during the flight (different 
airports, 

Scross country). 


for i=1:length (Altitude_Input) 
[1, idx1]=min (abs (Timestamp_TouchDown_nonzero (:)- 
Timestamp_Input(i))); 
[1,idx2]=min (abs (Timestamp_Taxiway (:)-Timestamp_Input (i)))j; 


if El_RPM(i)>=0.80*max(E1_RPM) && (Altitude_Input (i)< 
35+Altitude_Touchdown_nonzero(idxl)) && 
abs (Timestamp_TouchDown_nonzero (idx1) -Timestamp_Input (i) ) <abs (idx2- 
Timestamp_Input (i) ) 
& hold on; h(:,6)=plot (Timestamp_Input (i), 
Altitude_Input (i),'o', 'MarkerSize',3); 


fe) 


Timestamp_Takeoff1(i)=Timestamp_Input (i); % after a Touch 


% set (h(:,6), {'MarkerFaceColor'}, {[0,0.5,0]}); 
& set (h(:,6),{'MarkerEdgeColor'}, {[0,0.5,0]}); 
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else if E1_RPM(i)>=0.80*max(E1_RPM) && (Altitude_Input (i) < 
35+Altitude_Taxiway (idx2))&& abs (Timestamp_TouchDown_nonzero (idx1) - 
Timestamp_Input (i) )>abs (idx2-Timestamp_Input (i) ) 
% hold on; h(:,6)=plot (Timestamp_Input (i), 
Altitude_Input (i),'o', 'MarkerSize',3); 


fe) 


Timestamp_Takeoff2(i)=Timestamp_Input (i); % after Taxi phase 


& set (h(:,6), {'MarkerFaceColor'}, {[0,0.5,0]}); 
% set (h(:,6),{'MarkerEdgeColor'}, {[0,0.5,0]}); 
end 
end 
end 


%% GO-AROUND 

% I try to get minima (peak) of altitude (BaroA_withoutGoogle) to 
detect go-around. 

S"600" because I consider the maximum interval (to make a pattern) 
equal to 

% 10 minutes (60"*10). 

sWhile go-around, the pilot use full power earlier than for a touchdown 
(95% of maximum value is enough compared to takeoff one (80%), but we 
can change it to 80%, it only adds margins), as 

she wants to climb asap. For a Touchdown (touch and go), the pilot 
waits a bit while 

scrolling on the runway. Except exceedance, stall airspeed should not be 
Sreached during a go-around. 

$I added "mintab(i,2)> Altitude_Touchdown (Timestamp_TouchDown (idx) )" 
because I had problems with 

S$"A 123013 LI a_csv.csv" for example as it detected touchdown and go- 
around 

Sat same altitude. Indeed Touchdown was correctly detected but as the 
pilot 

Saccelerate (full power) to climb again, Go-around was detected. (This 
is 

sthe same way as for previous phases definitions, I try to find the 
nearest 

Stouchdown/ the shortest time separating touchdown and given value of 
Stimestamp to know the altitude of this touchdown, then I set the 
limits). 

$I chose "mintab(i,2)< 

400+Altitude_Touchdown (Timestamp_TouchDown (idx) )" 

sand "mintab(i,2)> Altitude_Touchdown (Timestamp_TouchDown (idx) )" 
$(mintab(i,2) is the altitude of the peak and mintab(i,1) is the 
timestamp 

sof the peak) to say that a Go-around is located between 0 and 400 ft 
above 

$a corresponding airport.Otherwise it detects a Go-round 

Sat a too high altitude for "A 033114 LBD a_csv.csv" file. 


[maxtab, mintab] = peakdet (Altitude_Input, 600,Timestamp_Input) ; 


for i=1:length (mintab) 

[1,idx]=min (abs (Timestamp_TouchDown_nonzero(:)-mintab(i,1))); 

if size(mintab)==[1,2] % I used this if loop with "break" to avoid 
errors with files "A 113013 LO a_csv.csv" and "A 0043014 LM a_csv.csv". 


There is no go-around during these flights so I avoid this phase 
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definition and errors about mintab size (too litle to be considered in 
next loop). 
break 

end 

if El_RPM(mintab(i,1))>0.7*max(E1_RPM) && 
IAS (mintab(i,1))>Stall_Airspeed && mintab(i,2)< 
400+Altitude_Touchdown_nonzero(idx) && mintab(i,2)> 
Altitude_Touchdown_nonzero (idx) 
% hold on; h(:,7) = plot (mintab(i,1), mintab(i,2), 
"o', 'MarkerSize',5,'MarkerFaceColor','y', 'MarkerEdgeColor','y'); 
for Go-around 

Timestamp_Goaround(i) = mintab(i,1); 

end 
end 


oe 


%% APPROACH PHASE 

SFirst and last assumptions are Descent phase ones. (VSpd assumption in 
Scomments for same reason as in Descent or Climb definition. See 
comments 

Sin those parts) 

SThen "BaroA_withoutGoogle (i) <1000+Altitude_Touchdown (idx)" means that 
the 

Saltitude has to remain less than 1000ft above nearest airport 
Saltitude ("Altitude_Touchdown"). 

$I took "max" because most of Altitude_Touchdown are zeros. 
Timestamp_TouchDown_nonzero = 

Timestamp_TouchDown (Timestamp_TouchDown~=0) ; 

Altitude_Touchdown_nonzero = Altitude_Touchdown (Altitude_Touchdown~=0) ; 


assignin('base', 'Timestamp_TouchDown_nonzero', Timestamp_TouchDown_nonze 
ro); 
assignin('base', 'Altitude_Touchdown_nonzero',Altitude_Touchdown_nonzero 
i 
for i=1:length (Altitude_Input) -30 

[1,idx]=min (abs (Timestamp_TouchDown_nonzero (:)- 


Timestamp_Input(i))); Shelps finding nearest timestamp value (of 
touchdown) for approach. "idx" is the timestamp value for nearest 
touchdown. 


if (Altitude_Input (i+29)-Altitude_Input(i))<-100 && 
Altitude_Input (i)<1000+ Altitude_Touchdown_nonzero(idx) % && 
sum(VSpd (i) :VSpd(it9) ) /10<0 
Timestamp_Approach(i) = Timestamp_Input (i); 
Altitude_Approach(i) = Altitude_Input (i); 
Interval_Approach_timestamp = Timestamp_Input (i) 
Timestamp_Input (i+29); 
Interval_Approach = 
Altitude_Input (Interval_Approach_timestamp) ; % (i) 
BaroA_withoutGoogle(it+29) ]; 
% h(:,4)=plot (Timestamp_Approach(i),Altitude_Approach (i), 
"b.', 'MarkerSize',DataMarkerSize) ; 
end 
end 


%% STANDING PHASE 


% I defined Standing phase by a null Groundspeed and null IAS 


sure 


fe) 


% the aircraft is not moving) 


for i=1:length (Altitude_Input) 


if GndSpd(i)==0 && IAS(i)==0 % 


(to be 


&& 


BaroA_withoutGoogle(i)<1.2*min (BaroA_withoutGoogle) 
Timestamp_Standing (i)=Timestamp_Input (i); 


% hold on; h(:,8)=plot (Timestamp_Input (i), 

Altitude_Input (i),'c.', 'MarkerSize',DataMarkerSize) ; 
end 

end 

XSt = zeros (size (Altitude_Input) ); 


for i = 1:length(XSt) 
if any (Timestamp_Standing==i) 
equal to increment 
XSt(i) = i; 
end 
end 


XTx = 
for i = 1:length (XTx) 
if any (Timestamp_Taxiway==i) 
equal to increment 
XTx(i) = i; 
end 
end 


zeros (size (Altitude_Input) ); 


Sif any value from this vector is 


Sif any value from this vector is 


if exist ('Timestamp_Takeoff1','var')==1 


XTol = 
for i = 1:length(XTol1) 

if any (Timestamp_Takeoff1l==i) 
equal to increment 

XTol (i) = i; 

end 
end 
end 


zeros (size (Altitude_Input) ); 


Sif any value from this vector is 


if exist ('Timestamp_Takeoff2','var')==1 


XTo2 = 
for i = 1:length(XTo2) 

if any (Timestamp_Takeoff2==i) 
equal to increment 

XTo2(i) = i; 

end 
end 
end 


XAp = 
for i = 1:length(XAp) 
if any (Timestamp_Approach==i) 
equal to increment 
XAp(i) = i; 


zeros (size (Altitude_Input) ); 


zeros (size (Altitude_Input) ); 


Sif any value from this vector is 


Sif any value from this vector is 
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end 
end 


if exist ('Timestamp_Goaround', 'var')==1 


XGa = zeros (size (Altitude_Input)); 
for i = 1:length(XGa) 

if any (Timestamp_Goaround==i) 
equal to increment 

XGa(i) = i; 

end 
end 
end 


XTd = zeros (size (Altitude_Input) ); 
for i = 1:length(XTd) 
if any (Timestamp_TouchDown==i) 
equal to increment 
XTd(i) = i; 
end 
end 


Sif any value from this vector is 


Sif any value from this vector is 


$I assign number to particular phases 


XSt (XSt~=0) = 2; 

XTx (XTx~=0) = 3; 

if exist ('Timestamp_Takeoff1', 'var')==1 
XTol (XTol~=0) = 4; 

end 

if exist ('Timestamp_Takeoff2','var')==1 
XTo2 (XTo2~=0) = 4; 

end 

XAp (XAp~=0) = 8; 

if exist ('Timestamp_Goaround', 'var')==1 
XGa (XGa~=0) = 10; 

end 

XTd(XTd~=0) = 9; 

assignin('base', 'XSt',XSt); 

assignin('base', 'XTx',XTx); 

if exist ('Timestamp_Takeoff1','var')==1 

assignin('base', 'XTol',XTol); 

end 

if exist ('Timestamp_Takeoff2','var')==1 

assignin('base', 'XTo2',XTo2); 

end 

assignin('base', 'XAp',XAp); 

if exist ('Timestamp_Goaround', 'var')==1 


assignin('base','XGa',XGa); 
end 
assignin('base', 'XTd',XTd); 


XTo = XToO2; 
for i=1:length (XTo) 
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if exist ('Timestamp_Takeoffl1','var')==1 
if XTol (i) ~=0 
XTo(i) = XTol (i) H 
end 
end 


end 
assignin('base', 'XTo',XTo); 
Vector_EasyPhaselId = zeros (size (Altitude_Input) ); 
for i=1:length (Altitude_Input) 
if XAp(i)~=0 


Vector_EasyPhaselId(i) = XAp(i); 
end 
if XTo(i)~=0 

Vector_EasyPhaselId(i) = XTo(i); 
end 
if XTx(i)~=0 

Vector_EasyPhaselId(i) = XTx(i); 
end 
if XSt (i) ~=0 

Vector_EasyPhaselId(i) = XSt(i); 
end 
if exist ('Timestamp_Goaround', 'var')==1 
if XGa(i)~=0 

Vector_EasyPhaselId(i) = XGa(i); 
end 
end 
if XTd(i)~=0 

Vector_EasyPhaselId(i) = XTd(i); 
end 

end 
Vector_EasyPhaseld(Vector_EasyPhaseId==0) = NaN; % Vector is the array 


with all phases coded by numbers 
assignin('base', 'Vector_EasyPhaselId',Vector_EasyPhaselIdqd) ; 
end 
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B.6: Matlab function to obtain rates using Down-Sampling/Altitude Difference to find the 


best method (DSAD_func_errors.m) 


function 
[Percentage_errors]=DSAD_func_errors (Timestamp_Input,Altitude_Input, Pha 
se_code, Vector_EasyPhaseld, FlightNumber) 


oo 


%% Creation of a new scale 


for Increment_Optimization = 1:1:300 

MessageFlightNumber = ['Flight #',num2str(FlightNumber) ]; 
disp (MessageFlightNumber) 

MessageMethod = ['Down-Sampling/Altitude Difference']; 


disp (MessageMethod) 

Increment_Optimization % best parameter value for pattern segments 
New_timestamp = 

Timestamp_Input (1: Increment_Optimization:numel (Timestamp_Input) ); 
New_BaroA_withoutGoogle = 

Altitude_Input (1: Increment_Optimization:numel (Altitude_Input) ); 


%% Detection of Maxima and Minima from the approximated scale 
[ 


pksmax, locsmax] = findpeaks (New_BaroA_withoutGoogle) ; 
BaroInv = 1.01*max (New_BaroA_withoutGoogle) - New_BaroA_withoutGoogle; 
[pksmin, locsmin] = findpeaks (BarolInv) ; 


Baro_Minima = New_BaroA_withoutGoogle(locsmin) ; 


SThis part was used in order to test several values of parameter n 
(here 

on=1 only) 

Peaks = []; 

Locs = []; 

Mat = []; 

Mat2 = []; 

Mat2splitx = []; 
Mat2splity []; 

Climb = []; 

Climbplus = []; 
Abscissa_Climb = []; 
Abscissa_Climbplus = []; 
Cruisel = []; 

Cruiselplus = []; 
Abscissa_Cruisel = []; 
Abscissa_Cruiselplus = []; 
Cruise2 = []; 

Cruise2plus = []; 
Abscissa_Cruise2 = []; 
Abscissa_Cruise2plus = []; 
Cruise3 = []; 
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Cruise3plus = []; 
Abscissa_Cruise3 = []; 
Abscissa_Cruise3plus = []; 
Cruise4 = []; 

Cruise4plus = []; 
Abscissa_Cruise4 = []; 
Abscissa_Cruise4plus = []; 
Descent = []; 

Descentplus = []; 
Abscissa_Descent = []; 
Abscissa_Descentplus = []; 


Cruisel_sum = []; 
Abscissa_Cruisel_sum = []; 
Cruise2_sum = []; 

Abscissa_Cruise2_sum 


ll 
a 
ae 
~ 


Climb_sum = []; 
Abscissa_Climb_sum = []; 
Descent_sum = []; 

Abscissa_Descent_sum 


ll 
— 
is 
. 


BeginningClimb = []; 
EndClimb = []; 

BeginningCruisel 
EndCruisel = []; 
BeginningCruise2 = []; 
EndCruise2 = []; 
BeginningCruise3 
EndCruise3 = []; 
BeginningCruise4 = []; 
EndCruise4 = []; 
BeginningDescent 
EndDescent = []; 


ll 
— 
es 
. 


ll 
— 
wu 
. 


ll 
— 
mu 
. 


Phase_Climb = []; 


Phase_Cruisel = []; 
Phase_Cruise2 = []; 
Phase_Cruise3 = []; 


[]; 
[]; 


Phase_Cruise4 
Phase_Descent 


ll 


Success = []; 
Fail = []; 
SPercentage_errors = []; 


b_descent = []; 
bl_descent = []; 
e_descent = []; 


b_climb = []; 
bl_climb = []; 
e_climb = []; 
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b_cruisel = []; 


bl_cruisel = []; 
e_cruisel = []; 
b_cruise2 = []; 
bi_cruise2 = []; 


e_cruise2 = []; 


b_cruise3 = []; 
bl_cruise3 = []; 
e_cruise3 = []; 


b_cruise4 = []; 
bl_cruise4 
e_cruise4 = []; 


Hl 
a 
oy 
~ 


Q 


Peaks = [pksmax;Baro_Minima]; % List of altitude for each peak (Maxima 
first, then Minima), time growing (with the approximated scale, for 
Maxima then Minima) 

Locs = [locsmax;locsmin]; % Corresponding abscissa of Maxima first, 
then Minima, same scale, same order as above. Abscissa expressed in 
terms of approximated scale. 


Mat = [Locs,Peaks]; % Combination of Locs and Peaks 
Mat2 = sortrows(Mat,1); % Mat sorted by Locs (abscissa), Minima and 


Maxima are now mixed but sorted by time growing 

Mat2splitx = Mat2(:,1); %SFirst column of Mat2 (Abscissa) 

Mat2splity = Mat2(:,2); sSecond column of Mat2 (corresponding altitudes 
of the peaks) 


$% Segmentation between critical peaks (ignore insignificant ones) = 
Altitude Difference step 
for i=1:length (Mat2splitx) -1 


& 2 sorts of climb: for altitudes smaller than 1500ft above minimum of 
%& altitude, difference of altitude should be at 


least 

% 400ft. For rest of altitudes, variation should be 
at 

& least 1000ft. This is made to avoid undetected 
climb 

% during a pattern (the altitude is usually low 
during 

& a pattern), when the variation is at least 1000ft 
for 

%® all altitudes. This is also made to avoid 
detected 

% climb during cruise, when the variation is at 
least 


& 400ft for all altitudes 
if Mat2splity (it+1)-Mat2splity(i)>1000 %&& 
Mat2splity (it+1)>1000+min (Mat2splity) 
Climb(i) = Mat2splity(i); 
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Climbplus(it+1l) = Mat2splity(i+1); 
Abscissa_Climb(i) = 
Timestamp_Input (New_timestamp (Mat2splitx(i))); 
Abscissa_Climbplus(i+l) = 
Timestamp_Input (New_timestamp (Mat2splitx(it+l))); 
end 
if Mat2splity(i+1)-Mat2splity(i)>400 && Mat2splity(i+1)- 
Mat2splity(i)< 1000 && Mat2splity (it+1) <1500+min (Mat2splity) 
Climb(i) = Mat2splity(i); 
Climbplus(it1l) = Mat2splity(i+1); 
Abscissa_Climb(i) = 
Timestamp_Input (New_timestamp (Mat2splitx(i))); 
Abscissa_Climbplus(i+l) = 
Timestamp_Input (New_timestamp (Mat2splitx(itl))); 
end 
% 4 sorts of cruise: 2 for altitudes larger than 1500ft above minimum 


% altitude. 

% 2 sorts of cruise because I needed to separate 
cruise 

% with positive and negative slope. I had to do so 

% otherwise, with considering both negative and 

% positive slopes, a descent phase (for example) 
could 

% be between two consecutive points while cruise 
would 

% be detected at the same time. Indeed, when the 
points 

are consecutive, the code will consider the first 

and 

% last points as limits of cruise segment, and the 

%& descent, even in the case that the variation of 

% altitude is larger than 1000ft, will also be 

% considered as cruise. With consideration of slope 
for 

% cruise detection, I exclude the risk of overlap. 

% Positive slopes: Cruisel, Negative slopes: 
Cruise2. 

% (See variables like store_Abscissa_Cruisel2 or 

% store_Abscissa_Cruise22) 

% I considered that cruise can be 

%& made at 500ft above the ground (Cruise3: positive 

% slope and Cruise4: negative slope). If I consider 
all 

% altitudes for cruise detection, ground phases as 

% standing or taxi phases would be considered as 

% cruise. Between 500ft and 1500 ft AGL, the 
minimum 

% difference is now 400 ft (instead of 1000 ft) to 
deal 

% with the small altitude in patterns arouns 
airfields. 


if Mat2splity (itl) —-Mat2splity(i)<1000 && Mat2splity(i+1)- 
Mat2splity(i)>0O && Mat2splity (i) >1500+min (Mat2splity) 
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Cruisel(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruisel (positive slope) 

Cruiselplus(itl) = Mat2splity(i+l); % Next altitude 

Abscissa_Cruisel(i) = 
Timestamp_Input (New_timestamp (Mat2splitx(i))); sCorresponding timestamp 
in the approximated scale 

Abscissa_Cruiselplus(itl) = 


Timestamp_Input (New_timestamp (Mat2splitx(it1l))); % Corresponding 
abscissa of next altitude in the approximated scale 
end 


if Mat2splity(it+1l)-Mat2splity(i)>-1000 && Mat2splity(i+1)- 
Mat2splity(i)<0O && Mat2splity (i) >1500+min (Mat2splity) 


Cruise2(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruise2 (negative slope) 

Cruise2plus(it+l) = Mat2splity (itl); 

Abscissa_Cruise2(i) = 
Timestamp_Input (New_timestamp (Mat2splitx(i))); 


Abscissa_Cruise2plus(itl) = 
Timestamp_Input (New_timestamp (Mat2splitx(it+1l))); 
end 


if (Mat2splity(it+1)-Mat2splity(i)<400 && Mat2splity(i+1)- 
Mat2splity(i)>0O && Mat2splity(i)<1500+min (Mat2splity) && 
Mat2splity(i)>500+min (Mat2splity) ) 


Cruise3_sum = []; 

Abscissa_Cruise3_sum = []; 

Cruise3(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruise2 (negative slope) 

Cruise3plus (itl) = Mat2splity (itl); 

Abscissa_Cruise3(i) = 
Timestamp_Input (New_timestamp (Mat2splitx(i))); 


Abscissa_Cruise3plus(itl) = 
Timestamp_Input (New_timestamp (Mat2splitx(it+l))); 
end 


if (Mat2splity(it+1)-Mat2splity(i)>-400 && Mat2splity(i+1)- 
Mat2splity(i)<0O && Mat2splity(i)<1500+min (Mat2splity) && 
Mat2splity(i)>500+min (Mat2splity) ) 


Cruise4_sum = []; 

Abscissa_Cruise4_sum = []; 

Cruise4(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruise2 (negative slope) 

Cruise4plus (itl) = Mat2splity(i+1); 

Abscissa_Cruise4(i) = 
Timestamp_Input (New_timestamp (Mat2splitx(i))); 


Abscissa_Cruise4plus(itl) = 
Timestamp_Input (New_timestamp (Mat2splitx(it+l))); 
end 
& 2 sorts of descent: for altitudes smaller than 1500ft above minimum 
of 
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% altitude, difference of altitude should be at 


least 
-400ft. For rest of altitudes, variation should 

be at 

% least -1000ft. This is made to avoid undetected 

% descent during a pattern (the altitude is usually 
low 

% during a pattern), when the variation is at least 

% -1000ft for all altitudes. This is also made to 
avoid 


ol? 


detected descent during cruise, when the 
variation is 
% at least —-400ft for all altitudes 
if Mat2splity(i+1)-Mat2splity(i)<-1000 %&& 
Mat2splity (i+1) <1000+min (Mat2splity) 
Descent (i) = Mat2splity(i); 
Descentplus (itl) = Mat2splity (itl); 
Abscissa_Descent (i) = 
Timestamp_Input (New_timestamp (Mat2splitx(i))); 
Abscissa_Descentplus(itl) = 
Timestamp_Input (New_timestamp (Mat2splitx(it+1l))); 
end 


if Mat2splity (itl) —-Mat2splity(i)<-400 && Mat2splity(i+l1)- 
Mat2splity(i)>-1000 && Mat2splity (i) <1500+min (Mat2splity) 
Descent (i) = Mat2splity(i); 
Descentplus (itl) = Mat2splity (itl); 
Abscissa_Descent (i) = 
Timestamp_Input (New_timestamp (Mat2splitx(i))); 
Abscissa_Descentplus(itl) = 
Timestamp_Input (New_timestamp (Mat2splitx(it+l))); 
end 


end 
6% Rearrange variables 


% Next line: this is made to get Cruisel and Cruiselplus with the same 
size, in order to add them together (Cruisel_sum) in order to avoid 
any 
% missing value. Same for the next 7 operations (variables). 
if isempty (Climb) ==0 
Climb = [Climb 0]; 
Abscissa_Climb = [Abscissa_Climb 0]; 
if length (Climb) ~=length (Climbplus) 
Climb(end) = []; 
Abscissa_Climb(end) = []; 
end 
end 


ol? 


if isempty (Cruisel) == 
Cruisel = [Cruisel 0]; 
Abscissa_Cruisel = [Abscissa_Cruisel 0]; 
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if length (Cruisel) ~=length(Cruiselplus) 
Cruisel(end) = []; 
Abscissa_Cruisel(end) = []; 

end 

end 


if isempty (Cruise2) == 

Cruise2 = [Cruise2 0]; 

Abscissa_Cruise2 = [Abscissa_Cruise2 0]; 

if length (Cruise2) ~=length (Cruise2plus) 
Cruise2(end) = []; 
Abscissa_Cruise2(end) = []; 

end 

end 


if isempty (Cruise3) == 

Cruise3 = [Cruise3 0]; 

Abscissa_Cruise3 = [Abscissa_Cruise3 0]; 

if length (Cruise3) ~=length (Cruise3plus) 
Cruise3(end) = []; 
Abscissa_Cruise3(end) = []; 

end 

end 


if isempty (Cruise4) == 

Cruise4 = [Cruise4 0]; 

Abscissa_Cruise4 = [Abscissa_Cruise4 0]; 

if length (Cruise4) ~=length (Cruise4plus) 
Cruise4(end) = []; 
Abscissa_Cruise4(end) = []; 

end 

end 


if isempty (Descent) == 

Descent = [Descent 0]; 

Abscissa_Descent = [Abscissa_Descent 0]; 

if length (Descent) ~=length (Descentplus) 
Descent (end) = []; 
Abscissa_Descent (end) = []; 

end 

end 


if isempty (Climb) == 

Climb (Climb==Climbplus) = 0; 

Climb_sum = Climb + Climbplus; 

Abscissa_Climb (Abscissa_Climb==Abscissa_Climbplus) = 0; 
Abscissa_Climb_sum = Abscissa_Climb + Abscissa_Climbplus; 
end 


if isempty (Cruisel) == 


Cruisel (Cruisel==Cruiselplus) = 0; 

Cruisel_sum = Cruisel + Cruiselplus; 

Abscissa_Cruisel (Abscissa_Cruisel==Abscissa_Cruiselplus) = 0; 
Abscissa_Cruisel_sum = Abscissa_Cruisel + Abscissa_Cruiselplus; 
end 


if isempty (Cruise2) ==0 

Cruise2 (Cruise2==Cruise2plus) = 0; 

Cruise2_sum = Cruise2 + Cruise2plus; 

Abscissa_Cruise2 (Abscissa_Cruise2==Abscissa_Cruise2plus) = 0; 
Abscissa_Cruise2_sum = Abscissa_Cruise2 + Abscissa_Cruise2plus; 
end 


if isempty (Cruise3) ==0 

Cruise3 (Cruise3==Cruise3plus) = 0; 

Cruise3_sum = Cruise3 + Cruise3plus; 

Abscissa_Cruise3 (Abscissa_Cruise3==Abscissa_Cruise3plus) = 0; 
Abscissa_Cruise3_sum = Abscissa_Cruise3 + Abscissa_Cruise3plus; 
end 


if isempty (Cruise4) ==0 

Cruise4 (Cruise4==Cruise4plus) = 0; 

Cruise4_sum = Cruise4 + Cruise4plus; 

Abscissa_Cruise4 (Abscissa_Cruise4==Abscissa_Cruise4plus) = 0; 
Abscissa_Cruise4_sum = Abscissa_Cruise4 + Abscissa_Cruise4plus; 
end 


if isempty (Descent) == 

Descent (Descent==Descentplus) = 0; 

Descent_sum = Descent + Descentplus; 

Abscissa_Descent (Abscissa_Descent==Abscissa_Descentplus) = 0; 
Abscissa_Descent_sum = Abscissa_Descent + Abscissa_Descentplus; 
end 


fe) 


% I replace all zeros by NaN 
if isempty (Climb) == 


Climb_sum(Climb_sum==0) = NaN; 
Abscissa_Climb_sum(Abscissa_Climb_sum==0) = NaN; 

end 

if isempty (Cruisel1) ==0 

Cruisel_sum(Cruisel_sum==0) = NaN; 
Abscissa_Cruisel_sum(Abscissa_Cruisel_sum==0) = NaN; 
end 

if isempty (Cruise2) == 

Cruise2_sum(Cruise2_sum==0) = NaN; 
Abscissa_Cruise2_sum(Abscissa_Cruise2_sum==0) = NaN; 
end 


if isempty (Cruise3) ==0 
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Cruise3_sum(Cruise3_sum==0) = NaN; 
Abscissa_Cruise3_sum(Abscissa_Cruise3_sum==0) = NaN; 
end 

if isempty (Cruise4) ==0 

Cruise4_sum(Cruise4_sum==0) = NaN; 
Abscissa_Cruise4_sum(Abscissa_Cruise4_sum==0) = NaN; 
end 

if isempty (Descent) ==0 

Descent_sum(Descent_sum==0) = NaN; 
Abscissa_Descent_sum(Abscissa_Descent_sum==0) = NaN; 
end 


fe) 


% Listing all values by original timestamp (see 
store_Abscissa_Cruisel), 

% but with the approximated scale. Column 2 is the order Column 1 
values 

% occurred. This is made to detect consecutive points later on. Cloumn 
2 OL 

% store_Cruisel is the same, but column is the corresponding altitude. 
if isempty (Cruisel1) ==0 

store_Abscissa_Cruisel = []; 

store_Cruisel = []; 


for i = 1:length (Abscissa_Cruisel_sum) -1 


if isnan(Abscissa_Cruisel_sum(i))==0 && 
isnan (Abscissa_Cruisel_sum(i+1) )== 
nxt=[Abscissa_Cruisel_sum(i),i]; 


nxtplus = [Abscissa_Cruisel_sum(it1l),i+1]; 
store_Abscissa_Cruisel = [store_Abscissa_Cruisel;nxt;nxtplus]; 
end 
if isnan(Cruisel_sum(i))==0 && isnan(Cruisel_sum(i+1) )==0 
nxt=[Cruisel_sum(i),i]; 
nxtplus = [Cruisel_sum(i+1),i+1]; 
store_Cruisel = [store_Cruisel;nxt;nxtplus]; 
end 
end 
end 


fe) 


%& Same for Cruise2 

if isempty (Cruise2) == 
store_Abscissa_Cruise2 = []; 

store _Cruise2 = []; 

for i = 1:length (Abscissa_Cruise2_sum)-1 


if isnan(Abscissa_Cruise2_sum(i))==0 && 
isnan (Abscissa_Cruise2_sum(i+1) )==0 
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nxt=[Abscissa_Cruise2_sum(i),i]; 


nxtplus = [Abscissa_Cruise2_sum(it1l),i+1]; 
store_Abscissa_Cruise2 = [store_Abscissa_Cruise2;nxt;nxtplus]; 
end 
if isnan(Cruise2_sum(i))==0 && isnan(Cruise2_sum(it+1) )==0 
nxt=[Cruise2_sum(i),i]; 
nxtplus = [Cruise2_sum(it1),i+1]; 
store_Cruise2 = [store_Cruise2;nxt;nxtplus]; 
end 
end 
end 


Q 


% Same for Cruise3 


if isempty (Cruise3) ==0 
store_Abscissa_Cruise3 = []; 
store_Cruise3 = []; 

for i = 1:length (Abscissa_Cruise3_sum) -1 


if isnan(Abscissa_Cruise3_sum(i))==0 && 
isnan (Abscissa_Cruise3_sum(it+1) )== 
nxt=[Abscissa_Cruise3_sum(i),i]; 
nxtplus = [Abscissa_Cruise3_sum(it1l),i+1]; 
store_Abscissa_Cruise3 = [store_Abscissa_Cruise3;nxt;nxtplus]; 


end 

if isnan(Cruise3_sum(i))==0 && isnan(Cruise3_sum(it+l1) )==0 
nxt=[Cruise3_sum(i),i]; 
nxtplus = [Cruise3_sum(i+1),i+1]; 
store_Cruise3 = [store_Cruise3;nxt;nxtplus]; 


end 
end 
end 


fe) 


% Same for Cruise4 


if isempty (Cruise4) ==0 
store_Abscissa_Cruise4 = []; 
store_Cruise4 = []; 
for i = 1:length (Abscissa_Cruise4_sum)-1 
if isnan(Abscissa_Cruise4_sum(i))==0 && 


isnan (Abscissa_Cruise4_sum(it+1) )== 
nxt=[Abscissa_Cruise4_sum(i),i]; 


nxtplus = [Abscissa_Cruise4_sum(it1),i+1]; 
store_Abscissa_Cruise4 = [store_Abscissa_Cruise4;nxt;nxtplus]; 
end 
if isnan(Cruise4_sum(i))==0 && isnan(Cruise4_sum(i+1) )==0 
nxt=[Cruise4_sum(i),i]; 
nxtplus = [Cruise4_sum(i+1),i+1]; 


store_Cruise4 = [store_Cruise4;nxt;nxtplus]; 
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end 
end 


end 


SSame for Descent 

if isempty (Descent) == 
store_Abscissa_Descent = []; 
store_Descent = []; 

for i = 1:length (Abscissa_Descent_sum) -1 


if isnan(Abscissa_Descent_sum(i))==0 && 
isnan (Abscissa_Descent_sum(i+1) )== 
nxt=[Abscissa_Descent_sum(i),i]; 


nxtplus = [Abscissa_Descent_sum(it1),i+1]; 
store_Abscissa_Descent = [store_Abscissa_Descent;nxt;nxtplus]; 
end 
if isnan(Descent_sum(i))==0 && isnan(Descent_sum(i+1) )==0 
nxt=[Descent_sum(i),il; 
nxtplus = [Descent_sum(i+1),i+1]; 
store_Descent = [store_Descent;nxt;nxtplus]; 
end 
end 
end 


fe) 


& Same for Climb 

if isempty (Climb) == 
store_Abscissa_Climb = []; 

store _Climb = []; 

for i = 1:length (Abscissa_Climb_sum) -1 


if isnan(Abscissa_Climb_sum(i))==0 && 
isnan (Abscissa_Climb_sum(i+1)) == 
nxt=[Abscissa_Climb_sum(i),i]; 


nxtplus = [Abscissa_Climb_sum(i+1),i+1]; 
store_Abscissa_Climb = [store_Abscissa_Climb;nxt;nxtplus]; 
end 
if isnan(Climb_sum(i))==0 && isnan(Climb_sum(i+1) )==0 
nxt=[Climb_sum(i),i]; 
nxtplus = [Climb_sum(i+1),i+1]; 
store_Climb = [store_Climb;nxt;nxtplus]; 
end 
end 
end 


fe) 


% I deleted all repeated rows for store_Abscissa_Cruisel and 
store_Cruisel. 


% I do not want to sort store_Cruisel by altitude, but by order in 
which 


% they occurred (That is why I used sortrows) 
if isempty (Cruisel) == 


store_Abscissa_Cruisel2 = unique(store_Abscissa_Cruisel ,'rows'); 
store_Cruisel2 = unique(store_Cruisel ,'rows'); 

store_Cruisel2 = sortrows(store_Cruisel2,2); 

end 


SSame for Cruise2 
if isempty (Cruise2) ==0 


store_Abscissa_Cruise22 = unique(store_Abscissa_Cruise2 ,'rows'); 
store_Cruise22 = unique(store_Cruise2 ,'rows'); 

store_Cruise22 = sortrows (store_Cruise22,2); 

end 


SSame for Cruise3 
if isempty (Cruise3) == 


store_Abscissa_Cruise32 = unique(store_Abscissa_Cruise3 ,'rows'); 
store_Cruise32 = unique(store_Cruise3 ,'rows'); 

store_Cruise32 = sortrows (store_Cruise32,2); 

end 


SSame for Cruise4 
if isempty (Cruise4) == 


store_Abscissa_Cruise42 = unique(store_Abscissa_Cruise4 ,'rows'); 
store_Cruise42 = unique(store_Cruise4 ,'rows'); 

store_Cruise42 = sortrows (store_Cruise42,2); 

end 


SSame for Descent 
if isempty (Descent) ==0 


store_Abscissa_Descent2 = unique(store_Abscissa_Descent, 'rows'); 
store_Descent2 = unique(store_Descent, 'rows'); 

store_Descent2 = sortrows(store_Descent2,2); 

end 


sSame for Climb 
if isempty (Climb) ==0 


store_Abscissa_Climb2 = unique(store_Abscissa_Climb, 'rows'); 
store_Climb2 = unique(store_Climb, 'rows'); 

store_Climb2 = sortrows(store_Climb2,2); 

end 


Q 


$% Cruisel 
if isempty (Cruisel) == 


b_cruisel = find(diff([store_Abscissa_Cruisel2(:,2)])==1); 
bl_cruisel = b_cruisel; 
for i = 1:length(b_cruisel)-1 
if b_cruisel (i+1)-b_cruisel (i)==1 && 
store _Cruisel2 (b_cruisel (i+1),1)>=store_Cruisel2 (b_cruisel (i),1) 
bl_cruisel(it+l) = 0; 


else continue 
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end 
end 
b1_cruisel (bl_cruisel==0)=[]; 
bl_cruisel = bl_cruisel'; 
BeginningCruisel = store_Abscissa_Cruisel2(bl_cruisel,1); 
BeginningCruisel = BeginningCruisel'; 
BeginningCruisel_Alt = Altitude_Input (BeginningCruisel) ; 
BeginningCruisel_Alt = BeginningCruisel_Alt'; 


for i = 1l:length(store_Abscissa_Cruisel2)-1 
if (store_Abscissa_Cruisel2(i+l,2) - 
store_Abscissa_Cruisel2(i,2)==1 && 
store_Cruisel2 (i+1,1)<store_Cruisel2(i,1))||(store_Abscissa_Cruisel2 (i+ 
1,2) - store_Abscissa_Cruisel2(i,2) ~=1) 
e_cruisel(i) = store_Abscissa_Cruisel2(i,1); 
end 
end 
if exist ('e cruisel')==1 
e_cruisel (e_cruisel==0) = []; 
EndCruisel = [e_cruisel store_Abscissa_Cruisel2(end,1)]; 
EndCruisel (EndCruisel==0) = []; 
EndCruisel_Alt = Altitude_Input (EndCruisel) ; 
else 
EndCruisel = [store_Abscissa_Cruisel2(end,1)]; 
EndCruisel (EndCruisel==0) = []; 
EndCruisel_Alt = Altitude_Input (EndCruisel)j; 
end 
end 


ae 


% Cruise2 
SSame for Cruise2 (See Cruise 1) 
if isempty (Cruise2) == 
b_cruise2 = find(diff([store_Abscissa_Cruise22(:,2)])==1); 
bl_cruise2 = b_cruise2; 
for i = 1:length(b_cruise2)-1 
if b_cruise2 (it+1)-b_cruise2(i)==1 && 
store _Cruise22 (b_cruise2 (i+1),1)<=store_Cruise22 (b_cruise2(i),1) 


bl_cruise2(i+l) = 0; 

else continue 

end 
end 
b1l_cruise2 (bl_cruise2==0)=[]; 
bl_cruise2 = bl_cruise2'; 
BeginningCruise2 = store_Abscissa_Cruise22 (bl_cruise2,1); 
BeginningCruise2 = BeginningCruise2'; 
BeginningCruise2_Alt = Altitude_Input (BeginningCruise2) ; 


BeginningCruise2_Alt = BeginningCruise2_Alt'; 


for i = 1l:length(store_Abscissa_Cruise22)-1 
if (store_Abscissa_Cruise22(i+1,2) - 
store_Abscissa_Cruise22(i,2)==1 && 
store_Cruise22 (it+1,1)>store_Cruise22(i,1))|| (store_Abscissa_Cruise22 (i+ 
1,2) - store_Abscissa_Cruise22 (i,2) ~=1) 
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e_cruise2(i) = store_Abscissa_Cruise22(i,1); 
end 
end 
if exist ('e_cruise2')== 
e_cruise2 (e_cruise2==0) = []; 
EndCruise2 = [e_cruise2 store_Abscissa_Cruise22(end,1)]; 
EndCruise2 (EndCruise2==0) = []; 
EndCruise2_Alt = Altitude_Input (EndCruise2) ; 
else 
EndCruise2 = [store_Abscissa_Cruise22(end,1)]; 
EndCruise2 (EndCruise2==0) = []; 
EndCruise2_Alt = Altitude_Input (EndCruise2) ; 
end 
end 


%% Cruise3 


SSame for Cruise3 (See Cruise 1) 
if isempty (Cruise3) ==0 
b_cruise3 = find(diff([store_Abscissa_Cruise32(:,2)])==1); 
bl_cruise3 = b_cruise3; 
for i = 1:length(b_cruise3) -1 
if b_cruise3 (i+1)-b_cruise3(i)==1 && 
store_Cruise32 (b_cruise3 (i+1),1)>=store_Cruise32 (b_cruise3(i),1) 
bl_cruise3(i+l) = 0; 
else continue 
end 
end 
bl_cruise3 (bl_cruise3==0)=[]; 
bl_cruise3 = bl_cruise3'; 
BeginningCruise3 = store_Abscissa_Cruise32 (bl_cruise3,1); 
BeginningCruise3 = BeginningCruise3'; 
BeginningCruise3_Alt = Altitude_Input (BeginningCruise3) ; 
BeginningCruise3_Alt = BeginningCruise3_Alt'; 


for i = 1l:length(store_Abscissa_Cruise32) -1 
if (store_Abscissa_Cruise32(i+l1,2) - 
store_Abscissa_Cruise32(i,2)==1 && 
store_Cruise32 (it+1,1)<store_Cruise32(i,1))|| (store_Abscissa_Cruise32 (i+ 
1,2) - store_Abscissa_Cruise32(i,2) ~=1) 
e_cruise3(i) = store_Abscissa_Cruise32(i,1); 
end 
end 
if exist ('e_cruise3')== 
e_cruise3 (e_cruise3==0) = []; 
EndCruise3 = [e_cruise3 store_Abscissa_Cruise32(end,1)]; 
EndCruise3 (EndCruise3==0) = []; 
EndCruise3_Alt = Altitude_Input (EndCruise3) ; 
else 
EndCruise3 = [store_Abscissa_Cruise32(end,1)]; 
EndCruise3 (EndCruise3==0) = []; 
EndCruise3_Alt = Altitude_Input (EndCruise3) ; 
end 
end 
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oe 


& Cruise4 
SSame for Cruise4 (See Cruise 1) 
if isempty (Cruise4) == 
b_cruise4 = find(diff([store_Abscissa_Cruise42(:,2)])==1); 
bl_cruise4 = b_cruise4; 
for i = 1:length(b_cruise4) -1 
if b_cruise4 (i+1) -b_cruise4(i)==1 && 
store_Cruise42 (b_cruise4 (i+1),1)<=store_Cruise42 (b_cruise4 (i),1) 
bl_cruise4(it+l) = 0; 
else continue 
end 
end 
b1l_cruise4 (bl_cruise4==0)=[]; 
bl_cruise4 = bl_cruise4'; 
BeginningCruise4 = store_Abscissa_Cruise42 (b1_cruise4,1)j; 
BeginningCruise4 = BeginningCruise4'; 
BeginningCruise4_ Alt = Altitude_Input (BeginningCruise4) ; 
BeginningCruise4_Alt = BeginningCruise4_Alt'; 


for i = 1l:length(store_Abscissa_Cruise42) -1 
if (store_Abscissa_Cruise42(i+l1,2) - 
store_Abscissa_Cruise42(i,2)==1 && 
store_Cruise42 (i+1,1)>store_Cruise42(i,1)) || (store_Abscissa_Cruise42 (it 
1,2) - store_Abscissa_Cruise42 (i,2) ~=1) 
e_cruise4(i) = store_Abscissa_Cruise42(i,1); 
end 
end 
if exist ('e_cruise4')== 
e_cruise4 (e_cruise4==0) = []; 
EndCruise4 = [e_cruise4 store_Abscissa_Cruise42(end,1)]; 
EndCruise4 (EndCruise4==0) = []; 
EndCruise4_ Alt = Altitude_Input (EndCruise4) ; 
else 
EndCruise4 = [store_Abscissa_Cruise42(end,1)]; 
EndCruise4 (EndCruise4==0) = []; 
EndCruise4_Alt = Altitude_Input (EndCruise4) ; 
end 
end 


6% Descent 
if isempty (Descent) == 
b_descent = find(diff([store_Abscissa_Descent2(:,2)])==1); 
bl_descent = b_descent; 
for i = 1:length(b_descent)-1 
if b_descent (i+1)-b_descent (i)==1 && 
store _Descent2 (b_descent (i+1),1)<=store_Descent2 (b_descent (i),1) 


bl1l_descent (it+t1) = 0; 
else continue 
end 
end 
bl_descent (b1l_descent==0) =[]; 
bl_descent = bl_descent'; 
BeginningDescent = store_Abscissa_Descent2 (bl_descent,1)j; 


BeginningDescent = BeginningDescent'; 
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BeginningDescent_Alt = Altitude_Input (BeginningDescent) ; 
BeginningDescent_Alt = BeginningDescent_Alt'; 


for i = 1l:length(store_Abscissa_Descent2) -1 
if (store_Abscissa_Descent2(i+1,2) - 
store_Abscissa_Descent2(i,2)==1 && 
store_Descent2 (i+1,1)>store_Descent2(i,1)) || (store_Abscissa_Descent2 (it 
1,2) - store_Abscissa_Descent2 (i,2) ~=1) 
e_descent (i) = store_Abscissa_Descent2(i,1); 
end 
end 
if exist ('e_descent')== 
e_descent (e_descent==0) = []; 
ndDescent = [e_descent store_Abscissa_Descent2 (end,1)]; 
Descent (EndDescent==0) = []; 
Descent_Alt = Altitude_Input (EndDescent) ; 


2 
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Descent = [store_Abscissa_Descent2(end,1)]; 
ndDescent (EndDescent==0) = []; 
ndDescent_Alt = Altitude_Input (EndDescent) ; 


en 
en 
%% Climb 

if isempty (Climb) == 

b_climb = find(diff([store_Abscissa_Climb2(:,2)])==1); 
bl1l_climb = b_climb; 

for i = 1:length(b_climb)-1 

if b_climb (it+1)-b_climb(i)==1 && 
store_Climb2 (b_climb (i+1),1)>=store_Climb2 (b_climb(i),1) 


bl_climb(i+l) = 0; 
else continue 
end 
end 
b1_climb (b1_climb==0)=[]; 


bl_climb = bl_climb'; 

BeginningClimb = store_Abscissa_Climb2 (b1l_climb,1); 
BeginningClimb = BeginningClimb'; 
BeginningClimb_Alt = Altitude_Input (BeginningClimb) ; 
BeginningClimb_Alt = BeginningClimb_Alt'; 


for i = 1l:length(store_Abscissa_Climb2)-1 


if (store_Abscissa_Climb2(i+1,2) - store_Abscissa_Climb2 (i, 2) ==1 
&& 
store_Climb2 (it+1,1)<store_Climb2(i,1)) || (store_Abscissa_Climb2 (it+1,2) - 
store_Abscissa_Climb2 (i, 2) ~=1) 
e_climb(i) = store_Abscissa_Climb2(i,1); 
end 
end 
if exist ('e_climb')==1 
e_climb(e_climb==0) = []; 
EndClimb = [e_climb store_Abscissa_Climb2(end,1)]; 
EndClimb (EndClimb==0) = []; 
EndClimb_Alt = Altitude_Input (EndClimb) ; 
else 
EndClimb = [store_Abscissa_Climb2(end,1)]; 


EndClimb_Alt = 
end 
end 


if isempty (Climb) == 


EndClimb (EndClimb== 


= [1]; 


Altitude_Input (EndClimb) ; 


Phase_Climb = [BeginningClimb; EndClimb]; 


end 


if isempty (Cruisel) == 
BeginningCruisel;! 


Phase_Cruisel = [ 
end 


if isempty (Cruise2) == 
BeginningCruise2;] 


Phase_Cruise2 = [ 
end 


if isempty (Cruise3) == 
BeginningCruise3;] 


Phase_Cruise3 = [ 
end 


if isempty (Cruise4) 
BeginningCruise4;! 


Phase_Cruise4 = [ 
end 


if isempty (Descent) 
BeginningDescent;! 


Phase_Descent = [ 
end 


hold on 


if isempty (Climb) == 


TClimb = reshape (Phase_Climb, [],1); 
TClimb = sortrows (TClimb) ; 


end 

if isempty (Cruisel) == 

TCruisel = reshape (Phase_Cruisel,[],1); 
TCruisel = sortrows(TCruisel); 

end 

if isempty (Cruise2) == 

TCruise2 = reshape (Phase_Cruise2,[],1); 
TCruise2 = sortrows (TCruise2); 

end 

if isempty (Cruise3) == 

TCruise3 = reshape (Phase_Cruise3,[],1); 
TCruise3 = sortrows (TCruise3); 

end 

if isempty (Cruise4) == 

TCruise4 = reshape (Phase_Cruise4,[],1); 
TCruise4 = sortrows (TCruise4) ; 

end 

if isempty (Descent) == 

TDescent = reshape (Phase_Descent,[],1); 
TDescent = sortrows(TDescent) ; 

end 


if isempty (Climb) ==0 


EndCruisel]; 


EndCruise2]; 


EndCruise3]; 


EndCruise4]; 


EndDescent]; 
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XCl = zeros (size (Altitude_Input)); Screation of a vector 
for i = 1:length(XCl) 
if any(TClimb==i) %if any value from this vector is equal to 
increment 
XC1(i) = i; 
end 
end 


%==> vector with TClimb values separated by zeros 


for i = 1:length(BeginningClimb) 
Xcll = find (BeginningClimb (i) ==XCl) ; 
Xcl2 = min(find(XCl>Xcll1)); 
IntclX1X2 = Xcl1+1:Xcl2-1; 
for j=1:length (XC1) 

if any (IntclX1X2==}) 


XC1(j) = 3; 
end 

end 

end 

end 


if isempty (Cruisel1) == 


XC1l = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XCl) 
if any(TCruisel==i) %if any value from this vector is equal to 
increment 
XC1(i) = i; 
end 
end 


S==> vector with TCruisel values separated by zeros 


for i = 1:length(BeginningCruisel) 
= find(BeginningCruisel (i) ==XC1); 
Xc12 = min(find(XC1>Xcl11)); 
IntclX1X2 = Xcl11+1:Xcl2-1; 
for j=1:length(XC1) 
if any (Intcl1X1X2==j) 
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XC1(j) = J; 
end 

end 

end 

end 


if isempty (Cruise2) == 
XC2 = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XC2) 


if any(TCruise2==i) %if any value from this vector is equal to 
increment 
XC2(i) = i; 
end 


end 


S$==> vector with TCruise2 values separated by zeros 


for i = 1:length(BeginningCruise2) 
Xc21 = find (BeginningCruise2 (i) ==XC2); 
Xc22 = min(find(XC2>Xc21)); 
Intc2X1X2 = Xc21+1:Xc22-1; 
for j=1:length (XC2) 
if any (Intc2X1X2==}) 
XC2(j) = JF 
end 
end 
end 


end 


if isempty (Cruise3) ==0 
XC3 = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XC3) 

if any(TCruise3==i) %if any value from this vector is equal to 
increment 

XC3(i) = i; 

end 

end 


S$==> vector with TCruise3 values separated by zeros 


for i = 1:length(BeginningCruise3) 
Xc31 = find(BeginningCruise3 (i) ==XC3) ; 
Xc32 = min(find(XC3>Xc31)); 
Intc3X1X2 = Xc31+1:Xc32-1; 
for j=1:length (XC3) 
if any (Intc3X1X2==j) 


XC3(j) = 3; 
end 
end 
end 
end 
if isempty (Cruise4) ==0 
XC4 = zeros (size (Altitude_Input) ); Screation of a vector 


for i = 1:length(XC4) 
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if any(TCruise4==i) %if any value from this vector is equal to 
increment 
XC4(i) = i; 
end 


S==> vector with TCruise4 values separated by zeros 


for i = 1:length(BeginningCruise4) 
Xc41 = find (BeginningCruiseé4 (i) ==XC4); 
Xc42 = min(find(XC4>Xc41)); 
Intc4X1X2 = Xc41+1:Xc42-1; 
for j=1:length (XC4) 
if any (Intc4X1X2==}) 


XC4(j) = 3; 
end 

end 

end 

end 


if isempty (Descent) == 


XDe = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XDe) 
if any(TDescent==i) %if any value from this vector is equal to 
increment 
XDe(i) = i; 
end 
end 


S==> vector with TDescent values separated by zeros 


for i = 1:length(BeginningDescent) 
= find(BeginningDescent (i) ==XDe) ; 
Xde2 = min(find(XDe>Xdel)); 
IntdeX1X2 = Xdel+1:Xde2-1; 
for j=1:length (XDe) 
if any (IntdeX1X2==}) 
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XDe(j) = J; 
end 

end 

end 

end 


if isempty (Climb) ==0 


XC1(XC1l~=0) = 5; 

end 

if isempty (Cruisel1) ==0 
XC1(XC1~=0) = 6; 

end 

if isempty (Cruise2) ==0 
XC2 (XC2~=0) = 6; 

end 

if isempty (Cruise3) ==0 


XC3 (XC3~=0) = 6; 
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end 

if isempty (Cruise4) ==0 

XC4 (XC4~=0) = 6; 

end 

if isempty (Descent) ==0 

XDe (XDe~=0) = 7; 

end 

if isempty (Cruisel1) ==0 

XC = XC1; 

end 

if exist ('XC')== 

for i=1:length (xX 
a XC1(i) 

Cc 


XC1 (i) H 

end 

if XC2(i)~= 
XC (i) 


XC2 (i); 
end 

if isempty (Cruise3) ==0 
if XC3(i)~=0 


XC(i) = XC3(i) ; 
end 
end 
if isempty (Cruise4) ==0 
if XC4(i)~=0 
XC(i) = XC4(i) ; 
end 
end 
end 
end 
Vector = zeros(size(Timestamp_Input) ); 
if exist ('XC1')==1 
Vector = XCl; 
end 


if exist ('XC')== 
for i=1:length (XC) 
if XC(i)~=0 


Vector(i) = XC(i) ; 
end 
if XDe(i)~=0 
Vector(i) = XDe(i); 
end 
end 
end 
nan_values = sum(isnan(Vector) ); 


fe) 


%% Re-creating original values in order to "fill" segments with the 
original altitude 
if isempty (Climb) == 


for i = 1:size(Phase_Climb, 2) Snumber of columns 
Limits _Climb_t = Phase_Climb(:,i); % Consider each column of 


Phase_Climb. Each column represents the limits of one segment. 
(Beginning = lst line, End = 2nd line) 
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Interval_Climb_timestamp = Limits_Climb_t(1):1:Limits_Climb_t (2); % 
Creating values of original variable timestamp, with 1s increment 
Interval_Climb_Baro = Altitude_Input (Interval_Climb_timestamp); % 
Creating corresponding values of altitude from previous line statement 
end 
end 


Shold on 


Ssame for Cruisel 


if isempty (Cruisel1) ==0 
for i = 1:size(Phase_Cruisel, 2) 
Limits _Cruisel_t = Phase_Cruisel(:,i); 


Interval_Cruisel_timestamp = 
Limits_Cruisel_t(1):1:Limits_Cruisel_t (2); 

Interval_Cruisel_Baro = Altitude_Input (Interval_Cruisel_timestamp) ; 
end 
end 
shold on 


Ssame for Cruise2 


if isempty (Cruise2) ==0 
for i = 1:size(Phase_Cruise2,2) 
Limits _Cruise2_t = Phase_Cruise2(:,i) ; 


Interval_Cruise2_timestamp = 
Limits_Cruise2_t(1):1:Limits_Cruise2_t (2); 

Interval_Cruise2_Baro = Altitude_Input (Interval_Cruise2_timestamp) ; 
end 
end 


Ssame for Cruise3 


Shold on 

if isempty (Cruise3) ==0 

for i = 1:size(Phase_Cruise3, 2) 
Limits_Cruise3_t = Phase_Cruise3(:,i) ; 


Interval_Cruise3_timestamp = 
Limits_Cruise3_t(1):1:Limits_Cruise3_t (2); 

Interval_Cruise3_Baro = Altitude_Input (Interval_Cruise3_timestamp) ; 
end 
end 


Ssame for Cruise4 


Shold on 
if isempty (Cruise4) ==0 
for i = 1:size(Phase_Cruise4, 2) 
Limits _Cruise4_t = Phase_Cruise4(:,i) ; 


Interval_Cruise4_timestamp = 
Limits_Cruise4_t(1):1:Limits_Cruise4_t (2); 
Interval_Cruise4_ Baro = Altitude_Input (Interval_Cruise4 timestamp) ; 
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end 
end 
Shold on 


Ssame for Descent 


if isempty (Descent) ==0 
for i = 1:size(Phase_Descent, 2) 
Limits _Descent_t = Phase_Descent (:,i); 


Interval_Descent_timestamp = 
Limits_Descent_t (1):1:Limits_Descent_t (2); 

Interval_Descent_Baro = Altitude_Input (Interval_Descent_timestamp) ; 
end 
end 


sHere I try to build one vector with all phases combined 
for i = 1:length (Vector) 
if isnan(Vector_EasyPhaselId(i) ) | | any (Vector_EasyPhaselId (i) ) ~=0 
Vector(i) = Vector “BasyPhaseld (i 7 
end 
end 
Vector_EasyPhaseId_Only = Vector_EasyPhaseld; 
Vector_EasyPhaseId_Only (Vector_EasyPhaseId_Only==0) = []; 
Length_Simple_Only = length (Vector_EasyPhaseId_Only) ; 


nan_values = sum(isnan(Vector) ); 
G_A = sum(Vector(:)==10); 
T_D = sum(Vector(:)==9); 


%I display the final Vector in the workplace 
% assignin('base', 'Vector',Vector) ; 


Q 


6% Comparison with ideal plot 


Success = 0; 
zeros = 0; 
for i = 1:length(Altitude_Input) 
if (Vector (i)==Phase_code (i) ) 
Success = Success + 1; 
end 
if (Vector (i)==0) 
Zeros = Zeros + 1; 
end 
end 
%& Success (Success==0) = []; 
Fail = length(Vector) - Success - nan_values; 


Percentage_errors (Increment_Optimization) = 
Fail/Length_Simple_Only*100; 


end 
Percentage_errors (Percentage_errors == 0) = []; 


end 
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B.7: Matlab function to obtain rates using Down-Sampling/Rate of Climb to find the best 


method (DSRC_func_errors.m) 


function 
[Percentage_errors]=DSRC_func_errors (Timestamp_Input,Altitude_Input, Pha 
se_code, Vector_EasyPhaseld, FlightNumber) 


%% Creation of a new scale 


fo) 


% New_BaroA_withoutGoogle 
for Increment_Optimization = 1:1:300 
MessageFlightNumber = ['Flight #',num2str(FlightNumber) ]; 
disp (MessageFlightNumber) 
MessageMethod = ['Down-Sampling/Rate of Climb']; 
disp (MessageMethod) 
Increment_Optimization 
New_timestamp = 1:Increment_Optimization:numel (Timestamp_Input) ; 
New_BaroA_withoutGoogle = 
Altitude_Input (1: Increment_Optimization:numel (Altitude_Input) ); 
hold on 


$% Detection of Maxima and Minima from the approximated scale 


Climb = []; 

Climbplus = []; 
Abscissa_Climb = []; 
Abscissa_Climbplus = []; 
Cruisel = []; 

Cruiselplus = []; 
Abscissa_Cruisel = []; 
Abscissa_Cruiselplus = []; 
Cruise2 = []; 

Cruise2plus = []; 
Abscissa_Cruise2 = []; 
Abscissa_Cruise2plus = []; 
Cruise3 = []; 

Cruise3plus = []; 
Abscissa_Cruise3 = []; 
Abscissa_Cruise3plus = []; 
Cruise4 = []; 

Cruise4plus = []; 
Abscissa_Cruise4 = []; 
Abscissa_Cruise4plus = []; 
Descent = []; 

Descentplus = []; 
Abscissa_Descent = []; 
Abscissa_Descentplus = []; 


Cruisel_sum = []; 
Abscissa_Cruisel_sum = []; 
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Cruise2_sum = []; 
Abscissa_Cruise2_sum = []; 


Climb_sum = []; 
Abscissa_Climb_sum = []; 
Descent_sum = []; 
Abscissa_Descent_sum = []; 


BeginningClimb = []; 
EndClimb = []; 
BeginningCruisel = []; 
EndCruisel = []; 
BeginningCruise2 
EndCruise2 = []; 
BeginningCruise3 = []; 
EndCruise3 = []; 
BeginningCruise4 
EndCruise4 = []; 
BeginningDescent = []; 
EndDescent = []; 


ll 
a 
es 
. 


ll 
— 
wu 
. 


Phase_Climb = []; 

Phase_Cruisel = []; 
Phase_Cruise2 = []; 
Phase_Cruise3 []; 
Phase_Cruise4 me 


Phase Descent = []; 

% Success = []; 

& Fail = []; 
SPercentage_errors = []; 


b_descent = [] 
bl_descent = [ 
e_descent = [] 
b_climb = []; 

bl_climb = []; 


e_climb = []; 
b_cruisel = []; 
bl_cruisel = []; 
e_cruisel = []; 
b_cruise2 = []; 
bl_cruise2 = []; 
e_cruise2 = []; 
b_cruise3 = []; 
bl_cruise3 = []; 


e_cruise3 


ll 
a 
— 
. 


b_cruise4 = []; 
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bl_cruise4 = []; 
e_cruise4 = []; 
Cruise3_sum = []; 


Abscissa_Cruise3_sum []; 


Cruise4_sum = []; 
Abscissa_Cruise4_sum = []; 


$% Segmentation between critical peaks (ignore insignificant ones) 
for i=1:length (New_timestamp) -1 


& 2 sorts of climb: for altitudes smaller than 1500ft above minimum of 
% altitude, difference of altitude should be 


between 

% 167ft and 333ft for a Down-sampling with n = 100. 
For 

&$ n = 50, change the numbers from 333 to 167 and 
167 to 

% 83, to keep a rate of climb of 200 fpm above 1500 
tie 

% AGL and between 100 and 200 fpm below 1500 ft 
AGL. 


if New_BaroA_withoutGoogle(it+1)- 
New_BaroA_withoutGoogle (i) >3.33*Increment_Optimization %3&& 
Mat2splity (i+1)>1000+min (Mat2splity) 


Sh(:,2) = plot ([New_timestamp (Mat2splitx (i) ) 
New_timestamp (Mat2splitx(it+1))], [Mat2splity(i) Mat2splity(itl1)],'g'); 
Climb(i) = New_BaroA_withoutGoogle (i); 
Climbplus (itl) = New_BaroA_withoutGoogle (itl); 
Abscissa_Climb(i) = New_timestamp (i); 
Abscissa_Climbplus(i+l) = New_timestamp (itl); 
end 


if New_BaroA_withoutGoogle (it1)- 
New_BaroA_withoutGoogle(i)>1.67*Increment_Optimization && 
New_BaroA_withoutGoogle (i+1)- 
New_BaroA_withoutGoogle (i) <3.33*Increment_Optimization && 
New_BaroA_withoutGoogle (it+1) <1500+min (New_BaroA_withoutGoogle) 
splot ([New_timestamp (Mat2splitx (i) ) 
New_timestamp (Mat2splitx(it+1l))], [Mat2splity(i) Mat2splity(it+1)],'g"'); 


Climb(i) = New_BaroA_withoutGoogle (i); 

Climbplus (itl) = New_BaroA_withoutGoogle (itl); 

Abscissa_Climb(i) = New_timestamp (i); 

Abscissa_Climbplus(it+l) = New_timestamp(i+1); 
end 


% 4 sorts of cruise: 2 for altitudes larger than 1500ft above minimum 


ol? 


altitude. 
2 sorts of cruise because I needed to separate 


ol? 


cruise 


ol? 


with positive and negative slope. I had to do so 
otherwise, with considering both negative and 
positive slopes, a descent phase (for example) 


ol? 


ol? 


could 
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% be between two consecutive points while cruise 


would 

%& be detected at the same time. Indeed, when the 
points 

% are consecutive, the code will consider the first 
and 

% last points as limits of cruise segment, and the 

%& descent will also be 

% considered as cruise. With consideration of slope 
for 

% cruise detection, I exclude the risk of overlap. 

% Positive slopes: Cruisel, Negative slopes: 
Cruise2. 

%& (See variables like store_Abscissa_Cruisel2 or 

% store_Abscissa_Cruise22) 

& I considered that cruise can be 

& made at 500ft above the ground (Cruise3: positive 

% slope and Cruise4: negative slope). If I consider 
all 

% altitudes for cruise detection, ground phases as 

% standing or taxi phases would be considered as 

% cruise. Between 500ft and 1500 ft AGL, the 
minimum 

& difference is now 167 ft (instead of 333 ft) to 
deal 

% with the small altitude in patterns arouns 
airfields. 

% To change to n = 50, change to numbers from 333 
oO 

% 167 and from 167 to 83 from the same reasons as 
in 


fe) 


% climb section. 

if New_BaroA_withoutGoogle (it+1)- 
New_BaroA_withoutGoogle(i)<3.33*Increment_Optimization && 
New_BaroA_withoutGoogle (it+1)-New_BaroA_withoutGoogle(i)>0O && 
New_BaroA_withoutGoogle (i) >1500+min (New_BaroA_withoutGoogle) 


Cruisel(i) = New_BaroA_withoutGoogle(i); % Altitudes of points 
recorded as Cruisel (positive slope) 

Cruiselplus (itl) = New_BaroA_withoutGoogle(i+l); % Next altitude 

Abscissa_Cruisel(i) = New_timestamp(i); sCorresponding timestamp 
in the approximated scale 

Abscissa_Cruiselplus(it1l) = New_timestamp(itl); % Corresponding 
abscissa of next altitude in the approximated scale 

end 


if New_BaroA_withoutGoogle(i+1)—-New_BaroA_withoutGoogle (i) >- 
3.33*Increment_Optimization && New_BaroA_withoutGoogle(i+1)- 
New_BaroA_withoutGoogle(i)<0O && 
New_BaroA_withoutGoogle (i) >1500+min (New_BaroA_withoutGoogle) 


Cruise2(i) = New_BaroA_withoutGoogle(i); % Altitudes of points 
recorded as Cruise2 (negative slope) 
Cruise2plus (itl) = New_BaroA_withoutGoogle(i+1); 


Abscissa_Cruise2(i) = New_timestamp (i); 


New__ 
New__ 
New__ 
New__ 


recorded as Cruise2 
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Abscissa_Cruise2plus (it+1) 
end 


New_timestamp (it+1); 


if (New_BaroA_withoutGoogle (i+1)- 
BaroA_withoutGoogle(i)<1.67*Increment_Optimization && 
BaroA_withoutGoogle(i+1)—-New_BaroA_withoutGoogle(i)>0O && 
BaroA_withoutGoogle (i) <1500+min (New_BaroA_withoutGoogle) && 
BaroA_withoutGoogle (i) >500+min (New_BaroA_withoutGoogle) ) 


a 
i. 


Cruise3 (i) New_BaroA_withoutGoogle(i); % 
(negative slope) 

Cruise3plus (it+1) New_BaroA_withoutGoogle(i+1); 
Abscissa_Cruise3 (i) New_timestamp (i); 


Abscissa_Cruise3plus (i+1) New_timestamp (i+1) ; 


Altitudes of points 


end 

if (New_BaroA_withoutGoogle (i+1)—-New_BaroA_withoutGoogle (i) >- 
1.67*Increment_Optimization && New_BaroA_withoutGoogle(i+l1)- 
New_BaroA_withoutGoogle(i)<0O && 
New_BaroA_withoutGoogle (i) <1500+min (New_BaroA_withoutGoogle) && 
New_BaroA_withoutGoogle (i) >500+min (New_BaroA_withoutGoogle) ) 


recorded as Cruise2 


Cruiseé4 (i) New_BaroA_withoutGoogle(i); % 
(negative slope) 
Cruise4plus (it+1) New_BaroA_withoutGoogle(i+1); 
Abscissa_Cruise4 (i) New_timestamp (i) ; 
Abscissa_Cruise4plus (it+1) New_timestamp (it+1); 
end 


Altitudes of points 


% 2 sorts of descent: for altitudes smaller than 1500ft above minimum 
Of 

% altitude, difference of altitude should be 
between 

& 167ft and 333ft for a Down-sampling with n = 100. 
For 

%* n = 50, change the numbers from 333 to 167 and 
167 to 

% 83, to keep a rate of climb of 200 fpm above 1500 
ie 

% AGL and between 100 and 200 fpm below 1500 ft 
AGL. 


if New_BaroA_withoutGoogle (it+1) -New_BaroA_withoutGoogle (i) <- 


3.33*Increment_Optimization 


Descent (i) New_BaroA_withoutGoogle (i); 

Descentplus (i+1) New_BaroA_withoutGoogle(i+1); 

Abscissa_Descent (i) New_timestamp (i) ; 

Abscissa_Descentplus (i+1) New_timestamp (it+1); 
end 


if New_BaroA_withoutGoogle (it+1) —-New_ 


BaroA_withoutGoogle (i) <- 


1.67*Increment_Optimization && New_BaroA_withoutGoogle(i+1)- 


New__ 
New__ 


BaroA_withoutGoogle(i)>-3.33*Increment_Optimization && 
BaroA_withoutGoogle (i+1) <1500+min (New_BaroA_withoutGoogle) 
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Descent (i) = New_BaroA_withoutGoogle (i); 

Descentplus (itl) = New_BaroA_withoutGoogle(i+1); 

Abscissa_Descent (i) = New_timestamp (i); 

Abscissa_Descentplus(itl) = New_timestamp (itl); 
end 


end 
6% Rearrange variables 


& Next line: this is made to get Cruisel and Cruiselplus with the same 
% size, in order to add them together (Cruisel_sum) in order to avoid 
any 
% missing value. Same for the next 7 operations (variables). 
if isempty (Climb) ==0 
Climb = [Climb 0]; 
Abscissa_Climb = [Abscissa_Climb 0]; 
if length (Climb) ~=length (Climbplus) 
Climb(end) = []; 
Abscissa_Climb(end) = []; 
end 
end 


if isempty (Cruisel) == 

Cruisel = [Cruisel 0]; 

Abscissa_Cruisel = [Abscissa_Cruisel 0]; 

if length (Cruisel) ~=length (Cruiselplus) 
Cruisel(end) = []; 
Abscissa_Cruisel(end) = []; 

end 

end 


if isempty (Cruise2) == 

Cruise2 = [Cruise2 0]; 

Abscissa_Cruise2 = [Abscissa_Cruise2 0]; 

if length (Cruise2) ~=length (Cruise2plus) 
Cruise2(end) = []; 
Abscissa_Cruise2(end) = []; 

end 

end 


if isempty (Cruise3) == 

Cruise3 = [Cruise3 0]; 

Abscissa_Cruise3 = [Abscissa_Cruise3 0]; 

if length (Cruise3) ~=length (Cruise3plus) 
Cruise3(end) = []; 
Abscissa_Cruise3(end) = []; 

end 

end 


if isempty (Cruise4) ==0 
Cruise4 = [Cruise4 0]; 
Abscissa_Cruise4 = [Abscissa_Cruise4 0]; 
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if length (Cruise4) ~=length (Cruise4plus) 
Cruise4(end) = []; 
Abscissa_Cruise4(end) = []; 

end 

end 


if isempty (Descent) ==0 

Descent = [Descent 0]; 

Abscissa_Descent = [Abscissa_Descent 0]; 

if length (Descent) ~=length (Descentplus) 
Descent (end) = []; 
Abscissa_Descent (end) = []; 

end 

end 


% Abscissa_Climb = [Abscissa_Climb 0]; 


if isempty (Climb) == 

Climb (Climb==Climbplus) = 0; 

Climb_sum = Climb + Climbplus; 

Abscissa_Climb (Abscissa_Climb==Abscissa_Climbplus) = 0; 
Abscissa_Climb_sum = Abscissa_Climb + Abscissa_Climbplus; 
end 


if isempty (Cruisel) ==0 

Cruisel (Cruisel==Cruiselplus) = 0; 

Cruisel_sum = Cruisel + Cruiselplus; 

Abscissa_Cruisel (Abscissa_Cruisel==Abscissa_Cruiselplus) = 0; 
Abscissa_Cruisel_sum = Abscissa_Cruisel + Abscissa_Cruiselplus; 
end 

if isempty (Cruise2) ==0 

Cruise2 (Cruise2==Cruise2plus) = 0; 

Cruise2_sum = Cruise2 + Cruise2plus; 

Abscissa_Cruise2 (Abscissa_Cruise2==Abscissa_Cruise2plus) = 0; 
Abscissa_Cruise2_sum = Abscissa_Cruise2 + Abscissa_Cruise2plus; 
end 


if isempty (Cruise3) ==0 

Cruise3 (Cruise3==Cruise3plus) = 0; 

Cruise3_sum = Cruise3 + Cruise3plus; 

Abscissa_Cruise3 (Abscissa_Cruise3==Abscissa_Cruise3plus) = 0; 
Abscissa_Cruise3_sum = Abscissa_Cruise3 + Abscissa_Cruise3plus; 
end 


if isempty (Cruise4) ==0 

Cruise4 (Cruise4==Cruise4plus) = 0; 

Cruise4_sum = Cruise4 + Cruise4plus; 

Abscissa_Cruise4 (Abscissa_Cruise4==Abscissa_Cruise4plus) = 0; 
Abscissa_Cruise4_sum = Abscissa_Cruise4 + Abscissa_Cruise4plus; 
end 


if isempty (Descent) ==0 

Descent (Descent==Descentplus) = 0; 

Descent_sum = Descent + Descentplus; 

Abscissa_Descent (Abscissa_Descent==Abscissa_Descentplus) = 0; 
Abscissa_Descent_sum = Abscissa_Descent + Abscissa_Descentplus; 
end 


fe) 


% I replace all zeros by NaN 
if isempty (Climb) == 


Climb_sum(Climb_sum==0) = NaN; 
Abscissa_Climb_sum(Abscissa_Climb_sum==0) = NaN; 

end 

if isempty (Cruisel1) ==0 

Cruisel_sum(Cruisel_sum==0) = NaN; 
Abscissa_Cruisel_sum(Abscissa_Cruisel_sum==0) = NaN; 
end 

if isempty (Cruise2) ==0 

Cruise2_sum(Cruise2_sum==0) = NaN; 
Abscissa_Cruise2_sum(Abscissa_Cruise2_sum==0) = NaN; 
end 

if isempty (Cruise3) ==0 

Cruise3_sum(Cruise3_sum==0) = NaN; 
Abscissa_Cruise3_sum(Abscissa_Cruise3_sum==0) = NaN; 
end 

if isempty (Cruise4) ==0 

Cruise4_sum(Cruise4_sum==0) = NaN; 
Abscissa_Cruise4_sum(Abscissa_Cruise4_sum==0) = NaN; 
end 

if isempty (Descent) ==0 

Descent_sum(Descent_sum==0) = NaN; 
Abscissa_Descent_sum(Abscissa_Descent_sum==0) = NaN; 
end 


fe) 


& Listing all values by original timestamp (see 
store_Abscissa_Cruisel), 

% but with the approximated scale. Column 2 is the order Column 
values 

% occurred. This is made to detect consecutive points later on. 
2 Of 
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HE 


Column 


% store_Cruisel is the same, but column is the corresponding altitude. 


if isempty (Cruisel1) ==0 
store_Abscissa_Cruisel = []; 
store_Cruisel = []; 

for i = 1:length (Abscissa_Cruisel_sum) -1 
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if isnan(Abscissa_Cruisel_sum(i))==0 && 
isnan (Abscissa_Cruisel_sum(i+1) )== 
nxt=[Abscissa_Cruisel_sum(i),i]; 


nxtplus = [Abscissa_Cruisel_sum(it1l),i+1]; 
store_Abscissa_Cruisel = [store_Abscissa_Cruisel;nxt;nxtplus]; 
end 
if isnan(Cruisel_sum(i))==0 && isnan(Cruisel_sum(i+1) )==0 
nxt=[Cruisel_sum(i),i]; 
nxtplus = [Cruisel_sum(it1l),i+1]; 
store_Cruisel = [store_Cruisel;nxt;nxtplus]; 
end 
end 
end 


fo) 


% Same for Cruise2 
if isempty (Cruise2) == 


store_Abscissa_Cruise2 = []; 
store_Cruise2 = []; 
for i = 1:length (Abscissa_Cruise2_sum)-1 
if isnan(Abscissa_Cruise2_sum(i))==0 && 


isnan (Abscissa_Cruise2_sum(i+1) )== 
nxt=[Abscissa_Cruise2_sum(i),i]; 


nxtplus = [Abscissa_Cruise2_sum(it1),i+1]; 
store_Abscissa_Cruise2 = [store_Abscissa_Cruise2;nxt;nxtplus]; 
end 
if isnan(Cruise2_sum(i))==0 && isnan(Cruise2_sum(i+1) )==0 
nxt=[Cruise2_sum(i),i]; 
nxtplus = [Cruise2_sum(i+1),i+1]; 
store_Cruise2 = [store_Cruise2;nxt;nxtplus]; 
end 
end 
end 


if isempty (Cruise3) == 


store_Abscissa_Cruise3 = []; 
store _Cruise3 = []; 
for i = 1:length (Abscissa_Cruise3_sum) -1 
if isnan(Abscissa_Cruise3_sum(i))==0 && 


isnan (Abscissa_Cruise3_sum(it+1) )== 
nxt=[Abscissa_Cruise3_sum(i),i]; 


nxtplus = [Abscissa_Cruise3_sum(itl),i+1]; 
store_Abscissa_Cruise3 = [store_Abscissa_Cruise3;nxt;nxtplus]; 
end 
if isnan(Cruise3_sum(i))==0 && isnan(Cruise3_sum(it+1) )==0 


nxt=[Cruise3_sum(i),i]; 
nxtplus = [Cruise3_sum(i+1),i+1]; 
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store_Cruise3 = [store_Cruise3;nxt;nxtplus]; 
end 
end 
end 
if isempty (Cruise4) == 
store_Abscissa_Cruise4 = []; 
store _Cruise4 = []; 
for i = 1:length (Abscissa_Cruise4_sum) -1 
if isnan(Abscissa_Cruise4_sum(i))==0 && 


isnan (Abscissa_Cruise4_sum(it+1) )== 
nxt=[Abscissa_Cruise4_sum(i),i]; 


nxtplus = [Abscissa_Cruise4_sum(it+1),i+1]; 
store_Abscissa_Cruise4 = [store_Abscissa_Cruise4;nxt;nxtplus]; 
end 
if isnan(Cruise4_sum(i))==0 && isnan(Cruise4_sum(i+1) )==0 
nxt=[Cruise4_sum(i),i]; 
nxtplus = [Cruise4_sum(i+1),i+1]; 
store_Cruise4 = [store_Cruise4;nxt;nxtplus]; 
end 
end 
end 


SSame for Descent 

if isempty (Descent) == 
store_Abscissa_Descent = []; 
store_Descent = []; 

for i = 1:length (Abscissa_Descent_sum) -1 


if isnan(Abscissa_Descent_sum(i))==0 && 
isnan (Abscissa_Descent_sum(i+1) )== 
nxt=[Abscissa_Descent_sum(i),i]; 


nxtplus = [Abscissa_Descent_sum(it1),i+1]; 
store_Abscissa_Descent = [store_Abscissa_Descent;nxt;nxtplus]; 
end 
if isnan(Descent_sum(i))==0 && isnan(Descent_sum(i+t+1) )==0 
nxt=[Descent_sum(i),i]; 
nxtplus = [Descent_sum(i+1),i+1]; 
store_Descent = [store_Descent;nxt;nxtplus]; 
end 
end 
end 


Q 


% Same for Climb 
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if isempty (Climb) == 
store_Abscissa_Climb = []; 

store_Climb = []; 

for i = 1:length (Abscissa_Climb_sum) -1 


if isnan(Abscissa_Climb_sum(i))==0 && 
isnan (Abscissa_Climb_sum(i+1) ) == 
nxt=[Abscissa_Climb_sum(i),i]; 


nxtplus = [Abscissa_Climb_sum(i+1),i+1]; 
store_Abscissa_Climb = [store_Abscissa_Climb;nxt;nxtplus]; 
end 
if isnan(Climb_sum(i))==0 && isnan(Climb_sum(i+1) )==0 
nxt=[Climb_sum(i),i]; 
nxtplus = [Climb_sum(i+1),i+1]; 
store_Climb = [store_Climb;nxt;nxtplus]; 
end 
end 
end 


fo) 


% I deleted all repeated rows for store_Abscissa_Cruisel and 
store_Cruisel. 

% I do not want to sort store_Cruisel by altitude, but by order in 
which 

% they occurred (That is why I used sortrows) 

if isempty (Cruisel1) ==0 

store_Abscissa_Cruisel2 = unique(store_Abscissa_Cruisel ,'rows'); 
store_Cruisel2 = unique(store_Cruisel ,'rows'); 

store_Cruisel2 = sortrows(store_Cruisel2,2); 


end 


SSame for Cruise2 
if isempty (Cruise2) == 


store_Abscissa_Cruise22 = unique(store_Abscissa_Cruise2 ,'rows'); 
store_Cruise22 = unique(store_Cruise2 ,'rows'); 

store_Cruise22 = sortrows (store_Cruise22,2); 

end 


if isempty (Cruise3) == 


store_Abscissa_Cruise32 = unique(store_Abscissa_Cruise3 ,'rows'); 
store_Cruise32 = unique(store_Cruise3 ,'rows'); 

store_Cruise32 = sortrows (store_Cruise32,2); 

end 

if isempty (Cruise4) ==0 

store_Abscissa_Cruise42 = unique(store_Abscissa_Cruise4 ,'rows'); 
store_Cruise42 = unique(store_Cruise4 ,'rows'); 

store_Cruise42 = sortrows (store_Cruise42,2); 

end 


SSame for Descent 
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if isempty (Descent) == 


store_Abscissa_Descent2 = unique(store_Abscissa_Descent, 'rows'); 
store_Descent2 = unique(store_Descent, 'rows'); 

store_Descent2 = sortrows(store_Descent2,2); 

end 


Same for Climb 
if isempty (Climb) == 


store_Abscissa_Climb2 = unique(store_Abscissa_Climb, 'rows'); 
store_Climb2 = unique(store_Climb, 'rows'); 

store_Climb2 = sortrows(store_Climb2,2); 

end 


6% Cruisel 
if isempty (Cruisel1) ==0 
b_cruisel = find(diff([store_Abscissa_Cruisel2(:,2)])==1); 
bl_cruisel = b_cruisel; 
for i = 1:length(b_cruisel)-1 
if b_cruisel (i+1)-b_cruisel (i)==1 && 
store _Cruisel2 (b_cruisel (i+1),1)>=store_Cruisel2 (b_cruisel (i),1) 
bl_cruisel(it+l) = 0; 
else continue 
end 
end 
bl_cruisel (bl_cruisel==0)=[]; 
bl_cruisel = bl_cruisel'; 
BeginningCruisel = store_Abscissa_Cruisel2(bl1_cruisel,1); 
BeginningCruisel = BeginningCruisel'; 
BeginningCruisel_Alt = Altitude_Input (BeginningCruisel) ; 
BeginningCruisel_Alt = BeginningCruisel_Alt'; 


for i = 1l:length(store_Abscissa_Cruisel12)-1 
if (store_Abscissa_Cruisel2(i+l1,2) - 
store_Abscissa_Cruisel2(i,2)==1 && 
store_Cruisel2 (i+1,1)<store_Cruisel2(i,1)) || (store_Abscissa_Cruise12 (it 
1,2) - store_Abscissa_Cruisel2(i,2) ~=1) 
e_cruisel(i) = store_Abscissa_Cruisel2(i,1); 
end 
end 
if exist ('e_cruisel')== 
e_cruisel (e_cruisel==0) = []; 
EndCruisel = [e_cruisel store_Abscissa_Cruisel2(end,1)]; 
EndCruisel (EndCruisel==0) = []; 
EndCruisel_Alt = Altitude_Input (EndCruisel); 
else 
EndCruisel = [store_Abscissa_Cruisel2(end,1)]; 
EndCruisel (EndCruisel==0) = []; 
EndCruisel_Alt = Altitude_Input (EndCruisel); 
end 
end 


$% Cruise2 
if isempty (Cruise2) ==0 


170 


b_cruise2 = find(diff([store_Abscissa_Cruise22(:,2)])==1); 

bl_cruise2 = b_cruise2; 

for i = 1:length(b_cruise2)-1 
if b_cruise2 (it+1)-b_cruise2(i)==1 && 

store_Cruise22 (b_cruise2 (it+1),1)<=store_Cruise22 (b_cruise2(i),1) 

bl_cruise2(i+l) = 0; 

else continue 
end 

end 

bl_cruise2 (bl_cruise2==0)=[]; 

bl_cruise2 = bl_cruise2'; 

BeginningCruise2 = store_Abscissa_Cruise22 (b1l_cruise2,1); 

BeginningCruise2 = BeginningCruise2'; 

BeginningCruise2_Alt = Altitude_Input (BeginningCruise2) ; 


BeginningCruise2_Alt = BeginningCruise2_Alt'; 


for i = 1l:length(store_Abscissa_Cruise22)-1 
if (store_Abscissa_Cruise22(i+1,2) - 
store_Abscissa_Cruise22(i,2)==1 && 
store_Cruise22 (i+1,1)>store_Cruise22(i,1))|| (store_Abscissa_Cruise22 (i+ 
1,2) - store_Abscissa_Cruise22 (i,2) ~=1) 
e_cruise2(i) = store_Abscissa_Cruise22(i,1); 
end 
end 
if exist ('e_cruise2')== 
e_cruise2 (e_cruise2==0) = []; 
EndCruise2 = [e_cruise2 store_Abscissa_Cruise22(end,1)]; 
EndCruise2 (EndCruise2==0) = []; 
EndCruise2_Alt = Altitude_Input (EndCruise2) ; 
else 
EndCruise2 = [store_Abscissa_Cruise22(end,1)]; 
EndCruise2 (EndCruise2==0) = []; 
EndCruise2_Alt = Altitude_Input (EndCruise2) ; 
end 
end 


6% Cruise3 
if isempty (Cruise3) == 
b_cruise3 = find(diff([store_Abscissa_Cruise32(:,2)])==1); 
bl_cruise3 = b_cruise3; 
for i = 1:length(b_cruise3) -1 
if b_cruise3 (i+1)-b_cruise3(i)==1 && 
store _Cruise32 (b_cruise3 (i+1),1)>=store_Cruise32 (b_cruise3(i),1) 
bl_cruise3(i+1l) = 0; 
else continue 
end 
end 
bl_cruise3 (bl_cruise3==0)=[]; 
bl_cruise3 = bl_cruise3'; 
BeginningCruise3 = store_Abscissa_Cruise32 (bl_cruise3,1); 
BeginningCruise3 = BeginningCruise3'; 
BeginningCruise3_Alt = Altitude_Input (BeginningCruise3) ; 
BeginningCruise3_Alt = BeginningCruise3_Alt'; 


for i = 1l:length(store_Abscissa_Cruise32)-1 
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if (store_Abscissa_Cruise32(i+l1,2) - 


store_Abscissa_Cruise32 (i, 2) ~=1) || (store_Abscissa_Cruise32 (it+1,2) - 
store_Abscissa_Cruise32(i,2)==1 && 
store_Cruise32(it1,1)<store_Cruise32(i,1)) 
e_cruise3(i) = store_Abscissa_Cruise32(i,1); 
end 
end 
if exist ('e_cruise3')== 
e_cruise3 (e_cruise3==0) = []; 
EndCruise3 = [e_cruise3 store_Abscissa_Cruise32(end,1)]; 
EndCruise3 (EndCruise3==0) = []; 
EndCruise3_Alt = Altitude_Input (EndCruise3) ; 
else 
EndCruise3 = [store_Abscissa_Cruise32(end,1)]; 
EndCruise3 (EndCruise3==0) = []; 
EndCruise3_Alt = Altitude_Input (EndCruise3) ; 
end 
end 


oo 


%% Cruise4 
if isempty (Cruise4) == 
b_cruise4 = find(diff([store_Abscissa_Cruise42(:,2)])==1); 
bl_cruise4 = b_cruise4; 
for i = 1:length(b_cruise4) -1 
if b_cruise4 (it+1)-b_cruise4(i)==1 && 
store _Cruise42 (b_cruise4 (i+1),1)<=store_Cruise42 (b_cruise4 (i),1) 
bl_cruise4(i+l) = 0; 
else continue 
end 
end 


b1l_cruise4 (bl_cruise4==0)=[]; 

bl_cruise4 = bl_cruise4'; 

BeginningCruise4 = store_Abscissa_Cruise42 (b1_cruise4,1)j; 
BeginningCruise4 = BeginningCruise4'; 
BeginningCruise4_ Alt = Altitude_Input (BeginningCruise4) ; 
BeginningCruise4_Alt = BeginningCruise4 Alt'; 


for i = 1l:length(store_Abscissa_Cruise42) -1 
if (store_Abscissa_Cruise42(it+l1,2) - 
store _Abscissa_Cruise42(i,2)==1 && 
store_Cruise42 (i+1,1)>store_Cruise42(i,1)) || (store_Abscissa_Cruise42 (i+ 
1,2) - store_Abscissa_Cruise42 (i,2) ~=1) 
e_cruise4(i) = store_Abscissa_Cruise42(i,1); 
end 
end 
if exist ('e_cruise4')== 
e_cruise4 (e_cruise4==0) = []; 
EndCruise4 = [e_cruise4 store_Abscissa_Cruise42(end,1)]; 
EndCruise4 (EndCruise4==0) = []; 
EndCruise4_Alt = Altitude_Input (EndCruise4) ; 
else 
EndCruise4 = [store_Abscissa_Cruise42(end,1)]; 
EndCruise4 (EndCruise4==0) = []; 
EndCruise4_ Alt = Altitude_Input (EndCruise4) ; 
end 
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end 
if isempty (Descent) ==0 
b_descent = find(diff([store_Abscissa_Descent2(:,2)])==1); 


bl_descent = b_descent; 
for i = 1:length(b_descent)-1 
if b_descent (i+1)-b_descent (i)==1 && 
store _Descent2 (b_descent (i+1),1)<=store_Descent2 (b_descent (i),1) 
bl_descent(it+l) = 0; 
& elseif b_descent (i+1)-b_descent (i)==1 && 
store _Descent2 (b_descent (i+1),1)<store_Descent2 (b_descent (i),1) && 
store _Descent2 (b_descent (i-1),1)>store_Descent2 (b_descent (i),1) 
% blil_descent (i+l) = 0 
else continue 
end 


, 


end 
bl_descent (b1_descent==0) =[]; 
bi_descent = bl_descent'; 


BeginningDescent = store_Abscissa_Descent2 (b1_descent,1)j; 
BeginningDescent = BeginningDescent'; 
sBeginningDescent = [store_Abscissa_Descent2(1,1) BeginningDescent]; 
BeginningDescent_Alt = Altitude_Input (BeginningDescent) ; 
BeginningDescent_Alt = BeginningDescent_Alt'; 
sBeginningDescent_Alt = [store_Descent2(1,1) BeginningDescent_Alt]; 
for i = 1l:length(store_Abscissa_Descent2) -1 
if (store_Abscissa_Descent2(it+1,2) - 
store_Abscissa_Descent2 (i,2)==1 && 
store_Descent2 (it+1,1)>store_Descent2(i,1)) || (store_Abscissa_Descent2 (i+ 
1,2) - store_Abscissa_Descent2 (i, 2) ~=1) 
e_descent(i) = store_Abscissa_Descent2(i,1); 
end 
end 
if exist ('e_descent')==1 
e_descent (e_descent==0) = []; 
ndDescent = [e_descent store_Abscissa_Descent2 (end,1)]; 


ndDescent (EndDescent==0) = []; 
ndDescent_Alt = Altitude_Input (EndDescent) ; 


el 
ndDescent = [store_Abscissa_Descent2(end,1)]; 
ndDescent (EndDescent==0) = []; 

Descent_Alt = Altitude_Input (EndDescent) ; 


AAA of ww 
0) 
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SSame for Climb (see Cruisel) 
if isempty (Climb) == 
b_climb = find(diff([store_Abscissa_Climb2 (:,2)])==1); 
bl_climb = b_climb; 
for i = 1:length(b_climb)-1 
if b_climb (i+1)-b_climb(i)==1 && 
store_Climb2 (b_climb (i+1),1)>=store_Climb2 (b_climb(i),1) 
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bl_climb(i+l) = 0; 

else continue 

end 
end 
b1_climb (b1_climb==0)=[]; 
bl_climb = bl_climb'; 
BeginningClimb = store_Abscissa_Climb2 (bl_climb,1); 
BeginningClimb = BeginningClimb'; 
BeginningClimb_Alt = Altitude_Input (BeginningClimb) ; 
BeginningClimb_Alt = BeginningClimb_Alt'; 


for i = 1l:length(store_Abscissa_Climb2)-1 


if (store_Abscissa_Climb2(i+1,2) - store_Abscissa_Climb2 (i, 2) ==1 
&& 
store_Climb2 (i+1,1)<store_Climb2(i,1)) || (store_Abscissa_Climb2 (i+1, 2) - 
store_Abscissa_Climb2 (i, 2) ~=1) 
e_climb(i) = store_Abscissa_Climb2(i,1); 
end 
end 
if exist ('e_climb')== 
e_climb(e_climb==0) = []; 
EndClimb = [e_climb store_Abscissa_Climb2(end,1)]; 
EndClimb (EndClimb==0) = []; 
EndClimb_Alt = Altitude_Input (EndClimb) ; 
else 
EndClimb = [store_Abscissa_Climb2(end,1)]; 
EndClimb (EndClimb==0) = []; 
EndClimb_Alt = Altitude_Input (EndClimb) ; 
end 


end 
if isempty (Climb) == 
Phase_Climb = [BeginningClimb; EndClimb]; 


end 

if isempty (Cruisel1) ==0 

Phase_Cruisel = [BeginningCruisel;EndCruisel]; 
end 

if isempty (Cruise2) ==0 

Phase_Cruise2 = [BeginningCruise2;EndCruise2]; 
end 

if isempty (Cruise3) ==0 

Phase_Cruise3 = [BeginningCruise3;EndCruise3]; 
end 

if isempty (Cruise4) == 

Phase_Cruise4 = [BeginningCruise4; EndCruise4]; 
end 

if isempty (Descent) == 

Phase_Descent = [BeginningDescent; EndDescent]; 
end 

hold on 


if isempty (Climb) == 
TClimb = reshape (Phase_Climb, [],1); 
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TClimb = sortrows (TClimb) ; 


end 

if isempty (Cruisel) == 

TCruisel = reshape (Phase_Cruisel,[],1); 
TCruisel = sortrows(TCruisel); 

end 

if isempty (Cruise2) == 

TCruise2 = reshape (Phase_Cruise2,[],1); 
TCruise2 = sortrows (TCruise2) ; 

end 

if isempty (Cruise3) == 

TCruise3 = reshape (Phase_Cruise3,[],1); 
TCruise3 = sortrows (TCruise3); 

end 

if isempty (Cruise4) == 

TCruise4 = reshape (Phase_Cruise4, [],1); 
TCruise4 = sortrows (TCruise4); 

end 

if isempty (Descent) == 

TDescent = reshape (Phase_Descent, [],1); 
TDescent = sortrows(TDescent) ; 

end 


if isempty (Climb) == 


XCl = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XCl) 
if any(TClimb==i) %if any value from this vector is equal to 
increment 
XC1(i) = i; 
end 
end 


$==> vector with TCruise2 values separated by zeros 


for i = 1:length(BeginningClimb) 
find (BeginningClimb (i) ==XCl); 
Xcl2 = min(find(XCl>Xcll1)); 
IntclX1X2 = Xcl1+1:Xcl2-1; 
for j=1:length (XC1) 

if any (IntclX1X2==}) 


x 
Q 
bh 
hh 
ll 


XC1(j) = J; 
end 
end 
end 
end 
if isempty (Cruisel) ==0 
XC1l = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XCl) 
if any(TCruisel==i) %if any value from this vector is equal to 
increment 


XC1(i) = i; 
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end 
end 


S==> vector with TCruise2 values separated by zeros 


for i = 1:length(BeginningCruisel) 
find (BeginningCruisel (i) ==XC1); 
Xc12 = min(find(XC1>Xcl11)); 
IntclX1X2 = Xcl11+1:Xcl2-1; 
for j=1:length (XC1) 
if any (IntclX1X2==}) 
XC1(j) = 3; 
end 
end 
end 


x 
Q 
a 
am 
ll 


end 


if isempty (Cruise2) ==0 
XC2 = zeros (size (Altitude_Input)); Screation of a vector 
for i = 1:length(XC2) 

if any(TCruise2==i) %if any value from this vector is equal to 
increment 

XC2(i) = i; 

end 

end 


%==> vector with TCruise2 values separated by zeros 


for i = 1:length(BeginningCruise2) 
= find(BeginningCruise2 (i) ==XC2) ; 
Xc22 = min(find(XC2>Xc21)); 
Intc2X1X2 = Xc21+1:Xc22-1; 
for j=1:length (XC2) 
if any (Intc2X1X2==}) 


Pal 
Q 
i) 
an 
| 


XC2 (9) = Ji 
end 
end 
end 
end 
if isempty (Cruise3) ==0 
XC3 = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XC3) 
if any(TCruise3==i) %if any value from this vector is equal to 
increment 


XC3(i) = i; 
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end 
end 


$==> vector with TCruise2 values separated by zeros 


for i = 1:length(BeginningCruise3) 
find (BeginningCruise3 (i) ==XC3) ; 
Xc32 = min(find(XC3>Xc31)); 
Intc3X1X2 = Xc31+1:Xc32-1; 
for j=1:length (XC3) 
if any (Intc3X1X2==}) 
XC3(j) = JF 
end 
end 
end 
end 


x 
Q 
Ww 
nm 
ll 


if isempty (Cruise4) ==0 
XC4 = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XC4) 

if any(TCruise4==i) %if any value from this vector is equal to 
increment 

XC4(i) = i; 

end 

end 


S$==> vector with TCruise2 values separated by zeros 


for i = 1:length(BeginningCruise4) 
= find(BeginningCruise4 (i) ==XC4); 
Xc42 = min(find(XC4>Xc41) ); 
Intc4X1X2 = Xc41+1:Xc42-1; 
for j=1:length (XC4) 
if any (Intc4X1X2==}) 


x 
Q 
ws 
ae 
| 


XC4(j) = Ji 
end 

end 

end 

end 


if isempty (Descent) == 


XDe = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XDe) 
if any(TDescent==i) %if any value from this vector is equal to 
increment 
XDe(i) = i; 
end 


end 


$==> vector with TCruise2 values separated by zeros 


for i = 1:length(BeginningDescent) 
find (BeginningDescent (i) ==XDe) ; 
Xde2 = min(find(XDe>Xdel) ); 
IntdeX1X2 = Xdel+1:Xde2-1; 
for j=1:length (XDe) 
if any (IntdeX1X2==j) 


x 
Q 
0) 
b 
ll 


XDe(j) = 3; 
end 

end 

end 

end 


if isempty (Climb) ==0 


XC1(XC1l~=0) = 5; 

end 

if isempty (Cruisel1) ==0 
XC1 (XC1~=0) = 6; 

end 

if isempty (Cruise2) ==0 
XC2 (XC2~=0) = 6; 

end 

if isempty (Cruise3) ==0 
XC3 (XC3~=0) = 6; 

end 

if isempty (Cruise4) ==0 
XC4 (XC4~=0) = 6; 

end 

if isempty (Descent) ==0 
XDe (XDe~=0) = 7; 

end 

if isempty (Cruisel) ==0 
XC = XC1; 

end 

if exist ('XC')==1 


for i=1:length (XC) 
if XC1 (i) ~=0 


XC(i) = XC1(i) ; 
end 
if XC2(i)~=0 

XC(i) = XC2(i); 
end 
if isempty (Cruise3) ==0 
if XC3(i)~=0 

XC(i) = XC3(i) ; 
end 
end 
if isempty (Cruise4) ==0 


if XC4(i)~=0 
XC(i) = XC4(i) ; 
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end 
end 
end 
end 
Vector = XCl; 
if exist ('XC!')==1 
for i=1:length (XC) 


if XC(i)~= 
Vector(i) = XC(i) ; 
end 
if XDe(i)~=0 
Vector(i) = XDe(i); 
end 
end 
end 
nan_values = sum(isnan(Vector) ); 


oo 


$% Re-creating original values in order to "fill" segments with the 
original altitude 
if isempty (Climb) == 


for i = 1:size(Phase_Climb, 2) Snumber of columns 

Limits _Climb_t = Phase_Climb(:,i) ;% Consider each column of 
Phase_Climb. Each column represents the limits of one segment. 
(Beginning = lst line, End = 2nd line) 


Interval_Climb_timestamp = Limits_Climb_t(1):1:Limits_Climb_t(2); % 


Creating values of original variable timestamp, with 1s increment 
Interval_Climb_Baro = Altitude_Input (Interval_Climb_timestamp); % 
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Creating corresponding values of altitude from previous line statement 


end 
end 
hold on 


Ssame for Cruisel 


if isempty (Cruisel1) ==0 
for i = 1:size(Phase_Cruisel, 2) 
Limits _Cruisel_t = Phase_Cruisel(:,i); 


Interval_Cruisel_timestamp = 
Limits_Cruisel_t(1):1:Limits_Cruisel_t (2); 

Interval_Cruisel_Baro = Altitude_Input (Interval_Cruisel_timestamp) ; 
end 
end 
hold on 


Ssame for Cruise2 


if isempty (Cruise2) ==0 
for i = 1:size(Phase_Cruise2, 2) 
Limits _Cruise2_t = Phase_Cruise2(:,i) ; 


Interval_Cruise2_timestamp = 
Limits_Cruise2_t(1):1:Limits_Cruise2_t (2); 
Interval_Cruise2_Baro = Altitude_Input (Interval_Cruise2_timestamp) ; 
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end 
end 
hold on 
if isempty (Cruise3) ==0 
for i = 1:size(Phase_Cruise3, 2) 
Limits _Cruise3_t = Phase_Cruise3(:,i) ; 


Interval_Cruise3_timestamp = 
Limits_Cruise3_t(1):1:Limits_Cruise3_t (2); 

Interval_Cruise3_Baro = Altitude_Input (Interval_Cruise3_timestamp) ; 
end 


end 

hold on 

if isempty (Cruise4) ==0 

for i = 1:size(Phase_Cruise4, 2) 
Limits_Cruise4_t = Phase_Cruise4(:,i) ; 


Interval_Cruise4_timestamp = 
Limits_Cruise4_t(1):1:Limits_Cruise4_t (2); 

Interval_Cruise4 Baro = Altitude_Input (Interval_Cruise4 timestamp) ; 
end 
end 
hold on 


S$same for Descent 


if isempty (Descent) ==0 
for i = 1:size(Phase_Descent, 2) 
Limits _Descent_t = Phase_Descent (:,i); 


Interval_Descent_timestamp = 
Limits_Descent_t (1) :1:Limits_Descent_t (2); 

Interval_Descent_Baro = Altitude_Input (Interval_Descent_timestamp) ; 
end 
end 


Here I try to build one vector with all phases combined 
for i = 1:length (Vector) 


if isnan(Vector_EasyPhaselId(i))==0 3| | 
any (Vector_EasyPhaselId (i) ) ~=0 
Vector(i) = Vector_EasyPhaselId(i); 
end 


end 

Vector_EasyPhaseId_Only = Vector_EasyPhaseld; 
Vector_EasyPhaseId_Only (Vector_EasyPhaseId_Only==0) = []; 
Length_Simple_Only = length (Vector_EasyPhaseId_Only) ; 


nan_values = sum(isnan(Vector) ); 
G_A = sum(Vector(:)==10); 
T_D = sum(Vector(:)==9); 


%I display the final Vector in the workplace 


% assignin('base', 'Vector',Vector) ; 


fe) 


6% Comparison with ideal plot 


Success = 0; 
Zeros = 0; 
for i = 1:length (Altitude_Input) 
if (Vector (i)==Phase_code (i) ) 
Success = Success + 1; 
end 
if (Vector (i)==0) 
Zeros = Zeros + 1; 
end 
end 


fe) 


%& Success (Success==0) = []; 


Fail = length(Vector) - Success - nan_values; 
Percentage_errors (Increment_Optimization) 


Fail/Length_Simple_Only*100; 


end 


Percentage_errors (Percentage_errors == 


end 
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B.8: Matlab function to obtain rates using Moving Average/Altitude Difference to find the 


best method (MAAD_func_errors.m) 


function 
[Percentage_errors]=MAAD_func_errors (Timestamp_Input,Altitude_Input,Pha 
se_code, Vector_EasyPhaseld, FlightNumber) 


for Increment_Optimization = 1:1:300 

MessageFlightNumber = ['Flight #',num2str(FlightNumber) ]; 
disp (MessageFlightNumber) 

MessageMethod = ['Moving Average/Altitude Difference']; 
disp (MessageMethod) 

Increment_Optimization 

New_BaroA_withoutGoogle = 

smooth (Altitude_Input, Increment_Optimization, 'moving'); 

timestamp = 1:numel(Timestamp_Input); 


%% Detection of Maxima and Minima from the approximated scale 


[pksmax, locsmax] = findpeaks (New_BaroA_withoutGoogle) ; 

BaroInv = 1.01*max (New_BaroA_withoutGoogle) - New_BaroA_withoutGoogle; 
[pksmin, locsmin] = findpeaks (BarolInv) ; 

Baro_Minima = New_BaroA_withoutGoogle(locsmin) ; 


Peaks = []; 

Locs = []; 

Mat = []; 

Mat2 = []; 

Mat2splitx = []; 
Mat2splity []; 

Climb = []; 

Climbplus = []; 
Abscissa_Climb = []; 
Abscissa_Climbplus = []; 
Cruisel = []; 

Cruiselplus = []; 
Abscissa_Cruisel = []; 
Abscissa_Cruiselplus = []; 
Cruise2 = []; 

Cruise2plus = []; 
Abscissa_Cruise2 = []; 
Abscissa_Cruise2plus = []; 
Cruise3 = []; 

Cruise3plus = []; 
Abscissa_Cruise3 = []; 
Abscissa_Cruise3plus = []; 
Cruise4 = []; 

Cruise4plus = []; 
Abscissa_Cruise4 = []; 
Abscissa_Cruise4plus = []; 
Descent = []; 
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Descentplus = []; 
Abscissa_Descent = []; 
Abscissa_Descentplus = []; 
Cruisel_sum = []; 
Abscissa_Cruisel_sum = []; 
Cruise2_sum = []; 


ll 
— 
a 
. 


Abscissa_Cruise2_sum 


Climb_sum = []; 
Abscissa_Climb_sum = []; 
Descent_sum = []; 
Abscissa_Descent_sum = []; 


BeginningClimb = []; 
EndClimb = []; 
BeginningCruisel 


ll 
— 
at 
. 


EndCruisel = []; 
BeginningCruise2 = []; 
EndCruise2 = []; 
BeginningCruise3 = []; 
EndCruise3 = []; 
BeginningCruise4 = []; 
EndCruise4 = []; 
BeginningDescent = []; 
EndDescent = []; 


Phase_Climb = []; 

Phase_Cruisel = []; 
Phase_Cruise2 = []; 
Phase_Cruise3 []; 
Phase_Cruise4 ie 
Phase_Descent []; 


% Success = []; 
% Fail = [l; 
SPercentage_errors = []; 


b_descent = [] 
bl_descent = [ 
] 


e_descent = []; 
b_climb = []; 
bl_climb = []; 
e_climb = []; 
b_cruisel = []; 
bl_cruisel = []; 
e_cruisel = []; 
b_cruise2 = []; 
bl_cruise2 = []; 


e_cruise2 = []; 
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b_cruise3 = []; 
bl_cruise3 = []; 
e_cruise3 = []; 
b_cruise4 = []; 
bl_cruise4 = []; 
e_cruise4 = []; 
Peaks = [pksmax;Baro_Minima]; % List of altitude for each peak (Maxima 


first, then Minima), time growing (with the approximated scale, for 
Maxima then Minima) 

Locs = [locsmax;locsmin]; % Corresponding abscissa of Maxima first, 
then Minima, same scale, same order as above. Abscissa expressed in 
terms of approximated scale. 


Mat = [Locs,Peaks]; % Combination of Locs and Peaks 
Mat2 = sortrows(Mat,1); % Mat sorted by Locs (abscissa), Minima and 


Maxima are now mixed but sorted by time growing 

Mat2splitx = Mat2(:,1); %SFirst column of Mat2 (Abscissa) 

Mat2splity = Mat2(:,2); sSecond column of Mat2 (corresponding altitudes 
of the peaks) 


$% Segmentation between critical peaks (ignore insignificant ones) = 
Altitude Difference step 
for i=1l:length (Mat2splitx) -1 


%& 2 sorts of climb: for altitudes smaller than 1500ft above minimum of 
% altitude, difference of altitude should be at 


least 

% A00ft. For rest of altitudes, variation should be 
at 

& least 1000ft. This is made to avoid undetected 
climb 

% during a pattern (the altitude is usually low 
during 

% a pattern), when the variation is at least 1000ft 
for 

& all altitudes. This is also made to avoid 
detected 

% climb during cruise, when the variation is at 
least 


& 400ft for all altitudes 
if Mat2splity(i+1)-Mat2splity(i)>1000 %&& 
Mat2splity (it+1)>1000+min (Mat2splity) 


Climb(i) = Mat2splity(i); 

Climbplus(it+1l) = Mat2splity(i+1); 

Abscissa_Climb(i) = timestamp (Mat2splitx(i)); 

Abscissa_Climbplus(i+1l) = timestamp (Mat2splitx(i+1)); 
end 


if Mat2splity(it+1l)—-Mat2splity(i)>400 && Mat2splity(i+1)- 
Mat2splity(i)< 1000 && Mat2splity (i+1) <1500+min (Altitude_Input) 


Climb(i) = Mat2splity(i); 
Climbplus(it+1l) = Mat2splity(i+1); 
Abscissa_Climb(i) = timestamp (Mat2splitx(i)); 


Abscissa_Climbplus(it+l) = timestamp (Mat2splitx(it+l)); 
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end 
% 4 sorts of cruise: 2 for altitudes larger than 1500ft above minimum 


% altitude. 

% 2 sorts of cruise because I needed to separate 
cruise 

% with positive and negative slope. I had to do so 

% otherwise, with considering both negative and 

% positive slopes, a descent phase (for example) 
could 

% be between two consecutive points while cruise 
would 

% be detected at the same time. Indeed, when the 
points 

are consecutive, the code will consider the first 

and 

& last points as limits of cruise segment, and the 

%& descent, even in the case that the variation of 

% altitude is larger than 1000ft, will also be 

% considered as cruise. With consideration of slope 
for 

% cruise detection, I exclude the risk of overlap. 

% Positive slopes: Cruisel, Negative slopes: 
Cruise2. 

% (See variables like store_Abscissa_Cruisel2 or 

% store_Abscissa_Cruise22) 

% I considered that cruise can be 

& made at 500ft above the ground (Cruise3: positive 

% slope and Cruise4: negative slope). If I consider 
all 

% altitudes for cruise detection, ground phases as 

% standing or taxi phases would be considered as 

% cruise. Between 500ft and 1500 ft AGL, the 
minimum 

% difference is now 400 ft (instead of 1000 ft) to 
deal 

% with the small altitude in patterns arouns 
airfields. 


if (Mat2splity (i+1)-Mat2splity(i)<1000 && Mat2splity(it1l)- 
Mat2splity(i)>0O && Mat2splity (i)>1500+min (Altitude_Input) ) 


Cruisel(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruisel (positive slope) 

Cruiselplus(itl) = Mat2splity(i+l); % Next altitude 

Abscissa_Cruisel(i) = timestamp (Mat2splitx(i)); SCorresponding 
timestamp in the approximated scale 

Abscissa_Cruiselplus(itl) = timestamp (Mat2splitx(itl)); % 
Corresponding abscissa of next altitude in the approximated scale 

end 


if (Mat2splity(i+1)-Mat2splity(i)>-1000 && Mat2splity(it1l)- 
Mat2splity(i)<0O && Mat2splity (i) >1500+min (Altitude_Input) ) 


Cruise2(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruise2 (negative slope) 
Cruise2plus(it+l) = Mat2splity (itl); 


Abscissa_Cruise2(i) = timestamp (Mat2splitx(i)); 
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Abscissa_Cruise2plus (itl) = timestamp (Mat2splitx(i+l)); 
end 


if (Mat2splity (it+1)-Mat2splity(i)<400 && Mat2splity(i+1)- 
Mat2splity(i)>0O && Mat2splity (i) <1500+min (Altitude_Input) && 
Mat2splity (i) >500+min (Altitude_Input) ) 


Cruise3(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruise2 (negative slope) 
Cruise3plus (itl) = Mat2splity (itl); 
Abscissa_Cruise3(i) = timestamp (Mat2splitx(i)); 
Abscissa_Cruise3plus (itl) = timestamp (Mat2splitx(it+l)); 
end 


if (Mat2splity(it+1)-Mat2splity(i)>-400 && Mat2splity(i+1)- 
Mat2splity(i)<0O && Mat2splity (i) <1500+min (Altitude_Input) && 
Mat2splity (i) >500+min (Altitude_Input) ) 


Cruise4(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruise2 (negative slope) 
Cruise4plus (itl) = Mat2splity(i+1); 
Abscissa_Cruise4(i) = timestamp (Mat2splitx(i)); 
Abscissa_Cruise4plus(itl) = timestamp (Mat2splitx(itl)); 
end 


%& 2 sorts of descent: for altitudes smaller than 1500ft above minimum 


% altitude, difference of altitude should be at 


least 

% -400ft. For rest of altitudes, variation should 
be at 

% least -1000ft. This is made to avoid undetected 

% descent during a pattern (the altitude is usually 
low 

% during a pattern), when the variation is at least 

& -1000ft for all altitudes. This is also made to 
avoid 


ol? 


detected descent during cruise, when the 
variation is 
% at least -400ft for all altitudes 
if Mat2splity(i+1)-Mat2splity(i)<-1000 %&& 
Mat2splity (i+1) <1000+min (Mat2splity) 


Descent (i) = Mat2splity(i); 

Descentplus(it+l) = Mat2splity (itl); 

Abscissa_Descent (i) = timestamp (Mat2splitx(i)); 

Abscissa_Descentplus (itl) = timestamp (Mat2splitx(it+l)); 
end 


if Mat2splity (itl) —-Mat2splity(i)<-400 && Mat2splity(i+l1)- 
Mat2splity(i)>-1000 && Mat2splity (i) <1500+min (Altitude_Input) 


Descent (i) = Mat2splity(i); 

Descentplus (itl) = Mat2splity(i+1l); 

Abscissa_Descent (i) = timestamp (Mat2splitx(i)); 
Abscissa_Descentplus (itl) = timestamp (Mat2splitx(i+l)); 


end 
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end 


if isempty (Climb) ==0 

Climb = [Climb 0]; 

Abscissa_Climb = [Abscissa_Climb 0]; 

if length (Climb) ~=length(Climbplus) 
Climb(end) = []; 
Abscissa_Climb(end) = []; 

end 

end 


if isempty (Cruisel) == 

Cruisel = [Cruisel 0]; 

Abscissa_Cruisel = [Abscissa_Cruisel 0]; 

if length (Cruisel) ~=length(Cruiselplus) 
Cruisel(end) = []; 
Abscissa_Cruisel(end) = []; 

end 

end 


if isempty (Cruise2) == 

Cruise2 = [Cruise2 0]; 

Abscissa_Cruise2 = [Abscissa_Cruise2 0]; 

if length (Cruise2) ~=length (Cruise2plus) 
Cruise2(end) = []; 
Abscissa_Cruise2(end) = []; 


end 

end 

if isempty (Cruise3) ==0 

Cruise3 = [Cruise3 0]; 

Abscissa_Cruise3 = [Abscissa_Cruise3 0]; 


if length (Cruise3) ~=length (Cruise3plus) 
Cruise3(end) = []; 
Abscissa_Cruise3(end) = []; 

end 

end 


if isempty (Cruise4) == 

Cruise4 = [Cruise4 0]; 

Abscissa_Cruise4 = [Abscissa_Cruise4 0]; 

if length (Cruise4) ~=length (Cruise4plus) 
Cruise4(end) = []; 
Abscissa_Cruise4(end) = []; 

end 

end 


if isempty (Descent) == 

Descent = [Descent 0]; 

Abscissa_Descent = [Abscissa_Descent 0]; 

if length (Descent) ~=length (Descentplus) 
Descent (end) = []; 
Abscissa_Descent (end) = []; 
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end 
end 


if isempty (Climb) == 

Climb (Climb==Climbplus) = 0; 

Climb_sum = Climb + Climbplus; 

Abscissa_Climb (Abscissa_Climb==Abscissa_Climbplus) = 0; 
Abscissa_Climb_sum = Abscissa_Climb + Abscissa_Climbplus; 
end 


if isempty (Cruisel1) == 

Cruisel (Cruisel==Cruiselplus) = 0; 

Cruisel_sum = Cruisel + Cruiselplus; 

Abscissa_Cruisel (Abscissa_Cruisel==Abscissa_Cruiselplus) = 0; 
Abscissa_Cruisel_sum = Abscissa_Cruisel + Abscissa_Cruiselplus; 
end 

if isempty (Cruise2) ==0 

Cruise2 (Cruise2==Cruise2plus) = 0; 

Cruise2_sum = Cruise2 + Cruise2plus; 

Abscissa_Cruise2 (Abscissa_Cruise2==Abscissa_Cruise2plus) = 0; 
Abscissa_Cruise2_sum = Abscissa_Cruise2 + Abscissa_Cruise2plus; 
end 


if isempty (Cruise3) ==0 

Cruise3 (Cruise3==Cruise3plus) = 0; 

Cruise3_sum = Cruise3 + Cruise3plus; 

Abscissa_Cruise3 (Abscissa_Cruise3==Abscissa_Cruise3plus) = 0; 
Abscissa_Cruise3_sum = Abscissa_Cruise3 + Abscissa_Cruise3plus; 
end 

if isempty (Cruise4) == 

Cruise4 (Cruise4==Cruise4plus) = 0; 

Cruise4_sum = Cruise4 + Cruise4plus; 

Abscissa_Cruise4 (Abscissa_Cruise4==Abscissa_Cruise4plus) = 0; 
Abscissa_Cruise4_sum = Abscissa_Cruise4 + Abscissa_Cruise4plus; 
end 


if isempty (Descent) == 

Descent (Descent==Descentplus) = 0; 

Descent_sum = Descent + Descentplus; 

Abscissa_Descent (Abscissa_Descent==Abscissa_Descentplus) = 0; 
Abscissa_Descent_sum = Abscissa_Descent + Abscissa_Descentplus; 
end 


fo) 


% I replace all zeros by NaN 
if isempty (Cruisel) == 


Cruisel_sum(Cruisel_sum==0) = NaN; 
Abscissa_Cruisel_sum(Abscissa_Cruisel_sum==0) = NaN; 
end 

if isempty (Cruise2) == 

Cruise2_sum(Cruise2_sum==0) = NaN; 
Abscissa_Cruise2_sum(Abscissa_Cruise2_sum==0) = NaN; 


end 
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if isempty (Cruise3) ==0 

Cruise3_sum(Cruise3_sum==0) = NaN; 
Abscissa_Cruise3_sum(Abscissa_Cruise3_sum==0) = NaN; 
end 

if isempty (Cruise4) ==0 

Cruise4_sum(Cruise4_sum==0) = NaN; 
Abscissa_Cruise4_sum(Abscissa_Cruise4_sum==0) = NaN; 
end 

if isempty (Descent) ==0 

Descent_sum(Descent_sum==0) = NaN; 
Abscissa_Descent_sum(Abscissa_Descent_sum==0) = NaN; 
end 

if isempty (Climb) ==0 

Climb_sum(Climb_sum==0) = NaN; 
Abscissa_Climb_sum(Abscissa_Climb_sum==0) = NaN; 

end 


fe) 


% Listing all values by original timestamp (see 
store_Abscissa_Cruisel), 

% but with the approximated scale. Column 2 is the order Column 1 
values 

% occurred. This is made to detect consecutive points later on. Cloumn 
2 Of 

% store_Cruisel is the same, but column is the corresponding altitude. 
if isempty (Cruisel1) ==0 

store_Abscissa_Cruisel = []; 

store_Cruisel = []; 


for i = 1:length (Abscissa_Cruisel_sum) -1 


if isnan(Abscissa_Cruisel_sum(i))==0 && 
isnan (Abscissa_Cruisel_sum(itl1))== 
nxt=[Abscissa_Cruisel_sum(i),i]; 


nxtplus = [Abscissa_Cruisel_sum(it1l),i+1]; 
store_Abscissa_Cruisel = [store_Abscissa_Cruisel;nxt;nxtplus]; 
end 
if isnan(Cruisel_sum(i))==0 && isnan(Cruisel_sum(i+1) )==0 
nxt=[Cruisel_sum(i),i]; 
nxtplus = [Cruisel_sum(i+1),i+1]; 
store_Cruisel = [store_Cruisel;nxt;nxtplus]; 
end 
end 
end 
& Same for Cruise2 
if isempty (Cruise2) ==0 


store_Abscissa_Cruise2 = []; 
store_Cruise2 = []; 
for i = 1:length (Abscissa_Cruise2_sum)-1 


if isnan(Abscissa_Cruise2_sum(i))==0 && 
isnan (Abscissa_Cruise2_sum(i+1) )== 


189 


nxt=[Abscissa_Cruise2_sum(i),i]; 
nxtplus = [Abscissa_Cruise2_sum(it1l),i+1]; 
store_Abscissa_Cruise2 = [store_Abscissa_Cruise2;nxt;nxtplus]; 


end 


if isnan(Cruise2_sum(i))==0 && isnan(Cruise2_sum(it+1) )==0 
nxt=[Cruise2_sum(i),i]; 


nxtplus = [Cruise2_sum(i+1),i+1]; 
store_Cruise2 = [store_Cruise2;nxt;nxtplus]; 
end 
end 
end 
if isempty (Cruise3) ==0 
store_Abscissa_Cruise3 = []; 
store_Cruise3 = []; 
for i = 1:length (Abscissa_Cruise3_sum) -1 
if isnan(Abscissa_Cruise3_sum(i))==0 && 


isnan (Abscissa_Cruise3_sum(i+1) )== 
nxt=[Abscissa_Cruise3_sum(i),i]; 


nxtplus = [Abscissa_Cruise3_sum(i+1),it+1]; 
store_Abscissa_Cruise3 = [store_Abscissa_Cruise3;nxt;nxtplus]; 
end 
if isnan(Cruise3_sum(i))==0 && isnan(Cruise3_sum(i+1) )==0 
nxt=[Cruise3_sum(i),i]; 
nxtplus = [Cruise3_sum(i+1),i+1]; 
store_Cruise3 = [store_Cruise3;nxt;nxtplus]; 
end 
end 
end 
if isempty (Cruise4) == 
store_Abscissa_Cruise4 = []; 
store _Cruise4 = []; 
for i = 1:length (Abscissa_Cruise4_sum)-1 
if isnan(Abscissa_Cruise4_sum(i))==0 && 


isnan (Abscissa_Cruise4_sum(itl1))== 
nxt=[Abscissa_Cruise4_sum(i),i]; 


nxtplus = [Abscissa_Cruise4_sum(it1l),i+1]; 
store_Abscissa_Cruise4 = [store_Abscissa_Cruise4;nxt;nxtplus]; 
end 
if isnan(Cruise4_sum(i))==0 && isnan(Cruise4_sum(i+1) )==0 
nxt=[Cruise4_sum(i),i]; 
nxtplus = [Cruise4_sum(i+1),i+1]; 
store_Cruise4 = [store_Cruise4;nxt;nxtplus]; 
end 


end 
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end 


SSame for Descent 

if isempty (Descent) ==0 
store_Abscissa_Descent = []; 
store_Descent = []; 

for i = 1:length (Abscissa_Descent_sum) -1 


if isnan(Abscissa_Descent_sum(i))==0 && 
isnan (Abscissa_Descent_sum(i+1) )== 
nxt=[Abscissa_Descent_sum(i),i]; 


nxtplus = [Abscissa_Descent_sum(it1),i+1]; 
store_Abscissa_Descent = [store_Abscissa_Descent;nxt;nxtplus]; 
end 
if isnan(Descent_sum(i))==0 && isnan(Descent_sum(i+1) )==0 
nxt=[Descent_sum(i),i]; 
nxtplus = [Descent_sum(i+1),i+1]; 
store _Descent = [store_Descent;nxt;nxtplus]; 
end 
end 
end 


[o) 


% Same for Climb 

if isempty (Climb) == 
store_Abscissa_Climb = []; 

store_Climb = []; 

for i = 1:length (Abscissa_Climb_sum) -1 


if isnan(Abscissa_Climb_sum(i))==0 && 
isnan (Abscissa_Climb_sum(i+1) ) == 
nxt=[Abscissa_Climb_sum(i),i]; 


nxtplus = [Abscissa_Climb_sum(it1l),i+1]; 
store_Abscissa_Climb = [store_Abscissa_Climb;nxt;nxtplus]; 
end 
if isnan(Climb_sum(i))==0 && isnan(Climb_sum(i+1) )==0 
nxt=[Climb_sum(i),i]; 
nxtplus = [Climb_sum(i+1),i+1]; 
store_Climb = [store_Climb;nxt;nxtplus]; 
end 
end 
end 


Q 


% I deleted all repeated rows for store_Abscissa_Cruisel and 
store_Cruisel. 

% I do not want to sort store_Cruisel by altitude, but by order in 
which 

% they occurred (That is why I used sortrows) 

if isempty (Cruisel) == 

store_Abscissa_Cruisel2 = unique(store_Abscissa_Cruisel ,'rows'); 
store_Cruisel2 = unique(store_Cruisel ,'rows'); 


store_Cruisel2 = sortrows(store_Cruisel2,2); 


end 


SSame for Cruise2 
if isempty (Cruise2) == 


store_Abscissa_Cruise22 = unique(store_Abscissa_Cruise2 ,'rows'); 
store_Cruise22 = unique(store_Cruise2 ,'rows'); 

store_Cruise22 = sortrows(store_Cruise22,2); 

end 


SSame for Cruise3 


if isempty (Cruise3) ==0 

store_Abscissa_Cruise32 = unique(store_Abscissa_Cruise3 ,'rows'); 
store_Cruise32 = unique(store_Cruise3 ,'rows'); 

store_Cruise32 = sortrows (store_Cruise32,2); 

end 


SSame for Cruise4 


if isempty (Cruise4) ==0 

store_Abscissa_Cruise42 = unique(store_Abscissa_Cruise4 ,'rows'); 
store_Cruise42 = unique(store_Cruise4 ,'rows'); 

store_Cruise42 = sortrows (store_Cruise42,2); 

end 


SSame for Descent 
if isempty (Descent) ==0 


store_Abscissa_Descent2 = unique(store_Abscissa_Descent, 'rows'); 
store_Descent2 = unique(store_Descent, 'rows'); 

store_Descent2 = sortrows(store_Descent2,2); 

end 


Same for Climb 
if isempty (Climb) == 


store_Abscissa_Climb2 = unique(store_Abscissa_Climb, 'rows'); 
store_Climb2 = unique(store_Climb, 'rows'); 

store_Climb2 = sortrows(store_Climb2,2); 

end 


6% Cruisel 
if isempty (Cruisel) == 
b_cruisel = find(diff([store_Abscissa_Cruisel2(:,2)])==1); 
bl_cruisel = b_cruisel; 
for i = 1:length(b_cruisel)-1 
if b_cruisel (i+1)-b_cruisel (i)==1 && 
store_Cruisel2 (b_cruisel (i+1),1)>=store_Cruisel2 (b_cruisel (i),1) 
bl_cruisel(it+l) = 0; 
else continue 
end 
end 
bl_cruisel (bl_cruisel==0)=[]; 
bl_cruisel = bl_cruisel'; 
BeginningCruisel = store_Abscissa_Cruisel2(bl1l_cruisel,1); 
BeginningCruisel = BeginningCruisel'; 


19] 
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BeginningCruisel_Alt Altitude_Input (BeginningCruisel)j; 
BeginningCruisel_Alt = BeginningCruisel_Alt'; 


for i = 1l:length(store_Abscissa_Cruisel2)-1 
if (store_Abscissa_Cruisel2(it+l1,2) - 
store_Abscissa_Cruisel2(i,2)==1 && 
store_Cruisel2 (i+1,1)<store_Cruisel2(i,1)) || (store_Abscissa_Cruise12 (it 
1,2) - store_Abscissa_Cruisel2(i,2)~=1) 
e_cruisel(i) = store_Abscissa_Cruisel2(i,1); 
end 
end 
if exist ('e_cruisel')== 
e_cruisel (e_cruisel==0) = []; 
EndCruisel = [e_cruisel store_Abscissa_Cruisel2(end,1)]; 
EndCruisel (EndCruisel==0) = []; 
EndCruisel_Alt = Altitude_Input (EndCruisel)j; 
else 
EndCruisel = [store_Abscissa_Cruisel2(end,1)]; 
EndCruisel (EndCruisel==0) = []; 
EndCruisel_Alt = Altitude_Input (EndCruisel); 
end 
end 


oe 


& Cruise2 
SSame for Cruise2 (See Cruise 1) 
if isempty (Cruise2) ==0 
b_cruise2 = find(diff([store_Abscissa_Cruise22(:,2)])==1); 
bl_cruise2 = b_cruise2; 
for i = 1:length(b_cruise2)-1 
if b_cruise2 (it+1)-b_cruise2(i)==1 && 
store _Cruise22 (b_cruise2 (i+1),1)<=store_Cruise22 (b_cruise2(i),1) 
bl_cruise2(i+l) = 0; 
else continue 
end 
end 
bl_cruise2 (bl_cruise2==0)=[]; 
bl_cruise2 = bl_cruise2'; 
BeginningCruise2 = store_Abscissa_Cruise22 (bl_cruise2,1); 
BeginningCruise2 = BeginningCruise2'; 
BeginningCruise2_Alt = Altitude_Input (BeginningCruise2) ; 
BeginningCruise2_Alt = BeginningCruise2_Alt'; 


for i = 1l:length(store_Abscissa_Cruise22) -1 
if (store_Abscissa_Cruise22(i+1,2) - 
store_Abscissa_Cruise22(i,2)==1 && 
store_Cruise22 (i+1,1)>store_Cruise22(i,1)) || (store_Abscissa_Cruise22 (i+ 
1,2) - store_Abscissa_Cruise22 (i,2) ~=1) 
e_cruise2(i) = store_Abscissa_Cruise22(i,1); 
end 
end 
if exist ('e_cruise2')== 
e_cruise2 (e_cruise2==0) = []; 
EndCruise2 = [e_cruise2 store_Abscissa_Cruise22(end,1)]; 
EndCruise2 (EndCruise2==0) = []; 
EndCruise2_Alt = Altitude_Input (EndCruise2) ; 
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else 
EndCruise2 = [store_Abscissa_Cruise22(end,1)]; 
EndCruise2 (EndCruise2==0) = []; 
EndCruise2_Alt = Altitude_Input (EndCruise2) ; 
end 
end 


%% Cruise3 


SSame for Cruise3 (See Cruise 1) 
if isempty (Cruise3) == 
b_cruise3 = find(diff([store_Abscissa_Cruise32(:,2)])==1); 
bl_cruise3 = b_cruise3; 
for i = 1:length(b_cruise3)-1 
if b_cruise3 (it+1)-b_cruise3(i)==1 && 
store _Cruise32 (b_cruise3 (i+1),1)>=store_Cruise32 (b_cruise3(i),1) 
bl_cruise3(i+l) = 0; 
else continue 
end 
end 
bl_cruise3 (bl_cruise3==0)=[]; 
bl_cruise3 = bl_cruise3'; 
BeginningCruise3 = store_Abscissa_Cruise32 (bl_cruise3,1); 
BeginningCruise3 = BeginningCruise3'; 
BeginningCruise3_Alt = Altitude_Input (BeginningCruise3) ; 
BeginningCruise3_Alt = BeginningCruise3_Alt'; 


for i = 1l:length(store_Abscissa_Cruise32)-1 
if (store_Abscissa_Cruise32(it+1,2) - 
store_Abscissa_Cruise32(i,2)==1 && 
store_Cruise32 (i+1,1)<store_Cruise32(i,1)) || (store_Abscissa_Cruise32 (it 
1,2) - store_Abscissa_Cruise32(i,2) ~=1) 
e_cruise3(i) = store_Abscissa_Cruise32(i,1); 
end 
end 
if exist ('e_cruise3')== 
e_cruise3(e_cruise3==0) = []; 
EndCruise3 = [e_cruise3 store_Abscissa_Cruise32(end,1)]; 
EndCruise3 (EndCruise3==0) = []; 
EndCruise3_Alt = Altitude_Input (EndCruise3) ; 
else 
EndCruise3 = [store_Abscissa_Cruise32(end,1)]; 
EndCruise3 (EndCruise3==0) = []; 
EndCruise3_Alt = Altitude_Input (EndCruise3) ; 
end 
end 


%% Cruise4 

SSame for Cruise4 (See Cruise 1) 

if isempty (Cruise4) == 

b_cruise4 = find(diff([store_Abscissa_Cruise42(:,2)])==1); 
bl_cruise4 = b_cruise4; 


for i = 1:length(b_cruise4) -1 


if b_cruise4 (i+1)-b_cruise4(i)==1 && 


store _Cruise42 (b_cruise4 (i+1),1)<=store_Cruise42 (b_cruise4 (i),1) 


bl_cruise4(i+l) = 0; 
else continue 
end 
end 
b1l_cruise4 (bl_cruise4==0)=[]; 
bl_cruise4 = bl_cruise4'; 


BeginningCruise4 = store_Abscissa_Cruise42 (bl_cruise4,1); 
BeginningCruise4 = BeginningCruise4'; 
BeginningCruise4_Alt = Altitude_Input (BeginningCruise4) ; 


BeginningCruise4_ Alt = BeginningCruise4_Alt'; 


for i = 1l:length(store_Abscissa_Cruise42) -1 
if (store_Abscissa_Cruise42(i+l1,2) - 


store_Abscissa_Cruise42 (i,2)==1 && 
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store_Cruise42 (i+1,1)>store_Cruise42(i,1))|| (store_Abscissa_Cruise42 (i+ 
1,2) - store_Abscissa_Cruise42 (i,2) ~=1) 
e_cruise4(i) = store_Abscissa_Cruise42(i,1); 


end 
end 
if exist ('e_ cruise4')== 


e_cruise4 (e_cruise4==0) = []; 


EndCruise4 (EndCruise4==0) = 


[]; 


EndCruise4_ Alt = Altitude_Input ( 


EndCruise4 = [e_cruise4 store_Abscissa_Cruise42(end,1)]; 


EndCruise4); 


else 
EndCruise4 = [store_Abscissa_Cruise42(end,1)]; 
EndCruise4 (EndCruise4==0) = []; 
EndCruise4_Alt = Altitude_Input (EndCruise4) ; 
end 
end 


6% Descent 
if isempty (Descent) == 


b_descent = find(diff([store_Abscissa_Descent2(:,2)])== 


bl_descent = b_descent; 


for i = 1:length(b_descent)-1 


if b_descent (i+1)-b_descent (i)==1 && 


store _Descent2 (b_descent (i+1),1)<=store_Descent2 (b_descent (i),1) 


bl_descent(it+l) = 0; 
else continue 
end 
end 
bl_descent (b1l_descent==0)=[]; 
bl_descent = bl_descent'; 


BeginningDescent = store_Abscissa_Descent2 (b1_descent,1)j; 
BeginningDescent = BeginningDescent'; 
BeginningDescent_Alt = Altitude_Input (BeginningDescent) ; 
BeginningDescent_Alt = BeginningDescent_Alt'; 


for i = 1l:length(store_Abscissa_Descent2) -1 
if (store_Abscissa_Descent2(i+1,2) - 


store_Abscissa_Descent2(i,2)==1 && 
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store_Descent2 (it+1,1)>=store_Descent2(i,1)) || (store_Abscissa_Descent2 (i 
+1,2) - store_Abscissa_Descent2 (i, 2) ~=1) 
e_descent (i) = store_Abscissa_Descent2(i,1); 
end 

end 
if exist ('e_descent')==1 

e_descent (e_descent==0) = []; 
dDescent = [e_descent store_Abscissa_Descent2(end,1)]; 
dDescent (EndDescent==0) = []; 
dDescent_Alt = Altitude_Input (EndDescent) ; 


5 


2 


5 


0) 
kh 
0) 


ndDescent = [store_Abscissa_Descent2(end,1)]; 
ndDescent (EndDescent==0) = []; 
Descent_Alt = Altitude_Input (EndDescent) ; 


5 
Q. 
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0) 
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$% Climb 
if isempty (Climb) == 
b_climb = find(diff([store_Abscissa_Climb2(:,2)])==1); 
bl1l_climb = b_climb; 
for i = 1:length(b_climb)-1 
if b_climb(i+1)-b_climb(i)==1 && 
store_Climb2 (b_climb(it+1),1)>=store_Climb2 (b_climb(i),1) 
bl_climb(i+1l) = 0; 
else continue 
end 
end 
b1_climb (b1_climb==0)=[]; 
bl_climb = bl_climb'; 
BeginningClimb = store_Abscissa_Climb2 (bl_climb,1); 
BeginningClimb = BeginningClimb'; 
BeginningClimb_Alt = Altitude_Input (BeginningClimb) ; 
BeginningClimb_Alt = BeginningClimb_Alt'; 


for i = 1l:length(store_Abscissa_Climb2)-1 
if (store_Abscissa_Climb2(i+1,2) - store_Abscissa_Climb2 (i, 2) ==1 
&& 
store_Climb2 (it+1,1)<=store_Climb2(i,1)) || (store_Abscissa_Climb2 (i+1, 2) 
—- store_Abscissa_Climb2 (i, 2) ~=1) 
e_climb(i) = store_Abscissa_Climb2(i,1); 
end 
end 
if exist ('e_climb')==1 
e_climb(e_climb==0) = []; 
EndClimb = [e_climb store_Abscissa_Climb2(end,1)]; 
EndClimb (EndClimb==0) = []; 
EndClimb_Alt = Altitude_Input (EndClimb) ; 
else 
EndClimb = [store_Abscissa_Climb2(end,1)]; 
EndClimb (EndClimb==0) = []; 
EndClimb_Alt = Altitude_Input (EndClimb) ; 
end 
end 


am 


if isempty (Climb) == 


Phase_Climb = [BeginningClimb; EndClimb]; 

end 

if isempty (Cruisel) == 

Phase_Cruisel = [BeginningCruisel;EndCruisel]; 
end 

if isempty (Cruise2) ==0 

Phase_Cruise2 = [BeginningCruise2;EndCruise2]; 
end 

if isempty (Cruise3) ==0 

Phase_Cruise3 = [BeginningCruise3;EndCruise3]; 
end 

if isempty (Cruise4) ==0 

Phase_Cruise4 = [BeginningCruise4;EndCruise4]; 
end 

if isempty (Descent) == 

Phase_Descent = [BeginningDescent; EndDescent]; 
end 

hold on 


if isempty (Climb) == 


TClimb = reshape (Phase_Climb, [],1); 
TClimb = sortrows (TClimb) ; 


end 

if isempty (Cruisel) == 

TCruisel = reshape (Phase_Cruisel,[],1); 
TCruisel = sortrows(TCruisel); 

end 

if isempty (Cruise2) ==0 

TCruise2 = reshape (Phase_Cruise2,[],1); 
TCruise2 = sortrows (TCruise2) ; 

end 

if isempty (Cruise3) == 

TCruise3 = reshape (Phase_Cruise3,[],1); 
TCruise3 = sortrows (TCruise3); 

end 

if isempty (Cruise4) ==0 

TCruise4 = reshape (Phase_Cruise4, [],1); 
TCruise4 = sortrows (TCruise4) ; 

end 

if isempty (Descent) == 

TDescent = reshape (Phase_Descent,[],1); 
TDescent = sortrows(TDescent) ; 

end 


if isempty (Climb) ==0 


XCl = zeros (size (New_ 


for i = 1:length(XCcl) 
if any (TClimb==i) 
increment 
XC1(i) = i; 
end 
end 


BaroA_withoutGoogle) ); Screation of a vector 


Sif any value from this vector is equal to 
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$==> vector with TClimb values separated by zeros 


for i = 1:length(BeginningClimb) 
find (BeginningClimb (i) ==XC1l); 
Xcl2 = min(find(XCl1>Xcll1)); 
IntclX1X2 = Xcl1+1:Xcl2-1; 
for j=1:length (XC1) 
if any (IntclX1X2==j) 
XC1(j) = J; 
end 
end 
end 
end 


x 
Q 
oom 
Re 
ll 


if isempty (Cruisel1) ==0 
XC1l = zeros (size (New_BaroA_withoutGoogle) ); Screation of a vector 
for i = 1:length(XCl) 
if any(TCruisel==i) %if any value from this vector is equal to 
increment 
XC1(i) = i; 


end 
end 


$==> vector with TCruisel values separated by zeros 


for i = 1:length(BeginningCruisel) 
Xcl1ll = find (BeginningCruisel (i) ==XC1); 
Xc12 = min(find(XC1>Xc11)); 
IntclX1X2 = Xcl11+1:Xcl2-1; 
for j=1:length(XC1) 
if any (Intc1lX1X2==j) 
XC1(j) = JF 
end 
end 
end 
end 


if isempty (Cruise2) ==0 
XC2 = zeros (size (New_BaroA_withoutGoogle) ); Screation of a vector 
for i = 1:length(XC2) 
if any(TCruise2==i) %if any value from this vector is equal to 
increment 
XC2(i) = i; 


end 
end 


S==> vector with TCruise2 values separated by zeros 


for i = 1:length(BeginningCruise2) 

Xc21 = find (BeginningCruise2 (i) ==XC2); 
Xc22 = min(find(XC2>Xc21)); 

Intc2X1X2 = Xc21+1:Xc22-1; 


for j=1:length(XC2) 


if any (Intc2X1X2==}) 


XC2(j) = 3; 
end 
end 
end 
end 
if isempty (Cruise3) ==0 
XC3 = zeros (size (New_BaroA_withoutGoogle) ); Screation of a vector 


for i = 1:length(XC3) 
if any (TCruise3==1) 
increment 
XC3(i) = i; 
end 
end 


Sif any value from this vector is equal to 


S==> vector with TCruise3 values separated by zeros 


for i = 1:length(BeginningCruise3) 

Xc31 = find(BeginningCruise3 (i) ==XC3) ; 
Xc32 = min(find(XC3>Xc31)); 

Intc3X1X2 = Xc31+1:Xc32-1; 


for j=1:length(XC3) 


if any (Intc3X1X2==}) 


XC3(3) = 3; 
end 
end 
end 
end 
if isempty (Cruise4) ==0 
XC4 = zeros (size (New_BaroA_withoutGoogle) ); Screation of a vector 


for i = 1:length(XC4) 
if any (TCruise4==i) 
increment 
XC4(i) = i; 
end 
end 


Sif any value from this vector is equal to 
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S==> vector with TCruise4 values separated by zeros 


for i = 1:length(BeginningCruise4) 
= find(BeginningCruise4 (i) ==XC4); 
Xc42 = min(find(XC4>Xc41)); 
Intc4X1X2 = Xc41+1:Xc42-1; 
for j=1:length (XC4) 
if any (Intc4X1X2==}) 
XC4(j) = J; 
end 
end 
end 
end 


x 
Q 
ws 
a 
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if isempty (Descent) ==0 
XDe = zeros (size (New_BaroA_withoutGoogle) ); Screation of a vector 
for i = 1:length(XDe) 
if any(TDescent==i) %if any value from this vector is equal to 
increment 
XDe(i) = i; 


end 
end 


S==> vector with TDescent values separated by zeros 


for i = 1:length(BeginningDescent) 
find (BeginningDescent (i) ==XDe) ; 
Xde2 = min(find(XDe>Xdel)); 
IntdeX1X2 = Xdel+1:Xde2-1; 
for j=1:length (XDe) 
if any (IntdeX1X2==}) 


x 
Q 
(0) 
b 
ll 


XDe(j) = J; 
end 

end 

end 

end 


if isempty (Climb) ==0 


XC1(XC1~=0) = 5; 

end 

if isempty (Cruisel1) ==0 
XC1 (XC1~=0) = 6; 

end 

if isempty (Cruise2) ==0 
XC2 (XC2~=0) = 6; 

end 

if isempty (Cruise3) ==0 
XC3 (XC3~=0) = 6; 

end 

if isempty (Cruise4) ==0 


XC4 (XC4~=0) = 6; 


end 

if isempty (Descent) ==0 
XDe (XDe~=0) = 7; 

end 

if isempty (Cruisel1) ==0 
XC = XC1; 

end 


if exist ('XC')== 
for i=1:length (XC) 
if XC1 (i) ~=0 


XC(i) = XC1 (i) ; 
end 
if XC2 (i) ~=0 
XC(i) = XC2(i); 
end 
if isempty (Cruise3) ==0 
if XC3(i)~=0 
XC(i) = XC3(i) ; 
end 
end 
if isempty (Cruise4) ==0 
if XC4 (i) ~=0 
XC(i) = XC4(i) ; 
end 
end 
end 
end 
Vector = zeros (size(Timestamp_Input) ); 
if exist ('XC1')==1 
Vector = XCl; 
end 
if exist ('XC!')==1 
for i=1:length (XC) 
if XC(i)~=0 
Vector(i) = XC(i) ; 
end 
if exist ('XDe')==1 
if XDe(i)~=0 
Vector(i) = XDe(i); 
end 
end 
end 
end 
nan_values = sum(isnan(Vector)); 


%% Re-creating original values in order to "fill" 
original altitude 
if isempty (Climb) ==0 


for i = 1:size(Phase_Climb, 2) Snumber of columns 
Limits _Climb_t = Phase_Climb(:,i); % Consider 


Phase_Climb. Each column represents the limits of 
Beginning = lst line, End = 2nd line) 


—s 


segments with the 


each column of 
one segment. 
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Interval_Climb_timestamp = Limits_Climb_t(1):1:Limits_Climb_t (2); % 
Creating values of original variable timestamp, with 1s increment 
Interval_Climb_Baro = Altitude_Input (Interval_Climb_timestamp); % 
Creating corresponding values of altitude from previous line statement 
end 
end 
hold on 


Ssame for Cruisel 


if isempty (Cruisel1) ==0 
for i = 1:size(Phase_Cruisel, 2) 
Limits _Cruisel_t = Phase_Cruisel(:,i); 


Interval_Cruisel_timestamp = 
Limits_Cruisel_t(1):1:Limits_Cruisel_t (2); 

Interval_Cruisel_Baro = Altitude_Input (Interval_Cruisel_timestamp) ; 
end 
end 
hold on 


Ssame for Cruise2 


if isempty (Cruise2) ==0 
for i = 1:size(Phase_Cruise2, 2) 
Limits _Cruise2_t = Phase_Cruise2(:,i) ; 


Interval_Cruise2_timestamp = 
Limits_Cruise2_t(1):1:Limits_Cruise2_t (2); 

Interval_Cruise2_Baro = Altitude_Input (Interval_Cruise2_timestamp) ; 
end 
end 
hold on 


Ssame for Cruise3 


if isempty (Cruise3) ==0 
for i = 1:size(Phase_Cruise3, 2) 
Limits _Cruise3_t = Phase_Cruise3(:,i) ; 


Interval_Cruise3_timestamp = 
Limits_Cruise3_t(1):1:Limits_Cruise3_t (2); 

Interval_Cruise3_Baro = Altitude_Input (Interval_Cruise3_timestamp) ; 
end 
end 
hold on 


Ssame for Cruise4 


if isempty (Cruise4) ==0 
for i = 1:size(Phase_Cruise4, 2) 
Limits _Cruise4_t = Phase_Cruise4(:,i) ; 


Interval_Cruise4_timestamp = 
Limits_Cruise4_t(1):1:Limits_Cruise4_t (2); 

Interval_Cruise4 Baro = Altitude_Input (Interval_Cruise4_timestamp) ; 
end 
end 
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hold on 


Ssame for Descent 


if isempty (Descent) ==0 
for i = 1:size(Phase_Descent, 2) 
Limits_Descent_t = Phase_Descent (:,i); 


Interval_Descent_timestamp = 
Limits_Descent_t (1):1:Limits_Descent_t (2); 

Interval_Descent_Baro = Altitude_Input (Interval_Descent_timestamp) ; 
end 
end 


sHere I try to build one vector with all phases combined 
for i = 1:length (Vector) 
if isnan(Vector_EasyPhaselId(i) ) | | any (Vector_EasyPhaselId (i) ) ~=0 
Vector(i) = Vector i Besybheseud ti ); 
end 
end 
Vector_EasyPhaseId_Only = Vector_EasyPhaseld; 
Vector_EasyPhaseId_Only (Vector_EasyPhaseId_Only==0) = []; 
Length_Simple_Only = length (Vector_EasyPhaseId_Only) ; 


nan_values = sum(isnan(Vector)); 
G_A = sum(Vector(:)==10); 
T_D = sum(Vector(:)==9); 


I display the final Vector in the workplace 
% assignin('base', 'Vector',Vector) ; 


fe) 


6% Comparison with ideal plot 


Success = 0; 
zeros = 0; 
for i = 1:length (Altitude_Input) 
if (Vector (i)==Phase_code (i) ) 
Success = Success + 1; 
end 
if (Vector (i)==0) 
Zeros = Zeros + 1; 
end 
end 
% Success (Success==0) = []; 
Fail = length(Vector) - Success - nan_values; 


Percentage_errors (Increment_Optimization) = 
Fail/Length_Simple_Only*100; 


end 
Percentage_errors (Percentage_errors == 0) = []; 


end 
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B.9: Matlab function to obtain rates using Moving Average/Rate of Climb to find the best 


method (MARC_func_errors.m) 


function 
[Percentage_errors]=MARC_func_errors (Timestamp_Input,Altitude_Input,Pha 
se_code, Vector_EasyPhaseld, FlightNumber) 


[oome) 


%% Creation of a new scale 


for Increment_Optimization = 1:1:300 

MessageFlightNumber = ['Flight #',num2str(FlightNumber) ]; 
disp (MessageFlightNumber) 

MessageMethod = ['Moving Average/Rate of Climb']; 


disp (MessageMethod) 
Increment_Optimization 
New_BaroA_withoutGoogle = 
smooth (Altitude_Input, Increment_Optimization, 'moving'); 
timestamp = 1:numel(Timestamp_Input) ; 
hold on 


Timestamp_Climb = []; 
Timestamp_Cruise =[]; 
Timestamp_Descent []; 


Climb = []; 

Climbplus = []; 
Abscissa_Climb = []; 
Abscissa_Climbplus = []; 
Cruisel = []; 

Cruiselplus = []; 
Abscissa_Cruisel = []; 
Abscissa_Cruiselplus = []; 
Cruise2 = []; 

Cruise2plus = []; 
Abscissa_Cruise2 = []; 
Abscissa_Cruise2plus = []; 
Cruise3 = []; 

Cruise3plus = []; 
Abscissa_Cruise3 = []; 
Abscissa_Cruise3plus = []; 
Cruise4 = []; 

Cruise4plus = []; 
Abscissa_Cruise4 = []; 
Abscissa_Cruise4plus = []; 
Descent = []; 

Descentplus = []; 
Abscissa_Descent = []; 
Abscissa_Descentplus = []; 


Cruisel_sum = []; 
Abscissa_Cruisel_sum 
Cruise2_sum = []; 
Abscissa_Cruise2_sum 


ll 
— 
a 
. 


ll 
— 
ess 
. 
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Climb_sum = []; 
Abscissa_Climb_sum = []; 
Descent_sum = []; 
Abscissa_Descent_sum = []; 


BeginningClimb = []; 
EndClimb = []; 

BeginningCruisel 
EndCruisel = []; 
BeginningCruise2 = []; 
EndCruise2 = []; 
BeginningCruise3 
EndCruise3 = []; 
BeginningCruise4 = []; 
EndCruise4 = []; 
BeginningDescent 
EndDescent = []; 


ll 
a 
= 
. 


ll 
a 
es 
. 


ll 
— 
wu 
s 


Phase_Climb = []; 


Phase_Cruisel = []; 
Phase_Cruise2 = []; 
Phase_Cruise3 = []; 
Phase_Cruise4 = []; 
Phase Descent = []; 
Success = []; 

Fail = []; 
%$Percentage_errors = []; 


b_descent = [] 
bl_descent = [ 
] 


e_descent = []; 
b_climb = []; 
bl_climb = []; 
e_climb = []; 
b_cruisel = []; 
bl_cruisel = []; 
e_cruisel = []; 
b_cruise2 = []; 
bl_cruise2 = []; 
é_cruise2 = []; 
b_cruise3 = []; 
bl_cruise3 = []; 
e_cruise3 = []; 
b_cruise4 = []; 


bl_cruise4 
e_cruise4 = []; 


ll 
a 
wu 
~ 
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Cruise3_sum = []; 
Abscissa_Cruise3_sum = []; 


Cruise4_sum = []; 

Abscissa_Cruise4_sum alle 
$% Segmentation between critical peaks (ignore insignificant ones) 
for i=1:length (timestamp) —30 


if (New_BaroA_withoutGoogle (i+29) -New_BaroA_withoutGoogle(i))>100 
Timestamp_Climb (i) =timestamp (i); 
Interval_Climb_timestamp = timestamp(i) : timestamp (i+29); 
Interval_Climb = Timestamp_Input (Interval_Climb_timestamp) ;% (i) 


, 


end 


if (New_BaroA_withoutGoogle (i+29) -New_BaroA_withoutGoogle(i))>-100 
&& (New_BaroA_withoutGoogle (i+29) -New_BaroA_withoutGoogle(i))<100 && 
Timestamp_Input (i) >500+min (Timestamp_Input) 
Timestamp_Cruise(i)=timestamp (i); 
Interval_Cruise_timestamp = timestamp(i) : timestamp (it+29); 
Interval_Cruise = Timestamp_Input (Interval_Cruise_timestamp; 
end 


if (New_BaroA_withoutGoogle (i+29) -New_BaroA_withoutGoogle (i) )<-100 
Timestamp_Descent (i) =timestamp (i); 
Interval_Descent_timestamp = timestamp(i) : timestamp (i+29); 
Interval_Descent = Timestamp_Input (Interval_Descent_timestamp) ; 
end 
end 
XCl = zeros (size (Altitude_Input) ); 
for i = 1:length(XCl) 
if size (Timestamp_Climb) ~=0 


if any (Timestamp_Climb==i) %if any value from this vector is equal 
to increment 
XC1l(i) = i; 
end 
end 
end 
XCr = zeros (size (Altitude_Input)); 


for i = 1:length(XCr) 
if size (Timestamp_Cruise) ~=0 


if any (Timestamp_Cruise==i) %if any value from this vector is 
equal to increment 
XCr(i) = i; 
end 
end 
end 
XDe = zeros (size (Altitude_Input) ); 


for i = 1:length(XDe) 

if size(Timestamp_Descent) ~=0 

if any (Timestamp_Descent==i) %if any value from this vector is 
equal to increment 
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XDe(i) = i; 
end 
end 
end 
XC1(XC1l~=0) = 5; 
XCr (XCr~=0) = 6; 
XDe (XDe~=0) = 7; 


Vector = XCl; 
for i=1:length (XC1) 
if XCr(i)~=0 


Vector(i) = XCr(i) ; 
end 
if XDe(i)~=0 
Vector(i) = XDe(i) 
end 
end 
for i = 1:length (Vector) 
if isnan(Vector_EasyPhaseId(i) ) | | any (Vector_EasyPhaselId (i) ) ~=0 
Vector(i) = Vector “Basyphaseiada i); 
end 
end 


Vector_EasyPhaseId_Only = Vector_EasyPhaseld; 
Vector_EasyPhaseId_Only (Vector_EasyPhaseId_Only==0) = []; 
Length_Simple_Only = length (Vector_EasyPhaseId_Only) ; 


nan_values = sum(isnan(Vector) ); 
G_A = sum(Vector(:)==10); 
T_D = sum(Vector(:)==9); 


%I display the final Vector in the workplace 
% assignin('base', 'Vector',Vector) ; 
6% Comparison with ideal plot 


Success = 0; 
zeros = 0; 
for i = 1:length (Altitude_Input) 
if (Vector (i)==Phase_code (i) ) 
Success = Success + 1; 
end 
if (Vector (i)==0) 
Zeros = Zeros + 1; 
end 
end 
% Success (Success==0) = []; 
Fail = length(Vector) - Success - nan_values; 


Percentage_errors (Increment_Optimization) = 
Fail/Length_Simple_Only*100; 


end 
Percentage_errors (Percentage_errors == 0) = []; 


end 
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B.10: Matlab function to obtain rates using Local Regression/Altitude Difference to find 


the best method (LRAD_func_errors.m) 


function 
[Percentage_errors]=LRAD_func_errors (Timestamp_Input,Altitude_Input,Pha 
se_code, Vector_EasyPhaseld, FlightNumber) 


for Increment_Optimization = 1:1:300 

MessageFlightNumber = ['Flight #',num2str(FlightNumber) ]; 
disp (MessageFlightNumber) 

MessageMethod = ['Local Regression/Altitude Difference']; 
disp (MessageMethod) 

Increment_Optimization 

New_BaroA_withoutGoogle = 

smooth (Altitude_Input, Increment_Optimization, 'loess'); 

timestamp = 1:numel(Timestamp_Input); 


%% Detection of Maxima and Minima from the approximated scale 


[pksmax, locsmax] = findpeaks (New_BaroA_withoutGoogle) ; 
BaroInv = 1.01*max (New_BaroA_withoutGoogle) - New_BaroA_withoutGoogle; 
[pksmin, locsmin] = findpeaks (BarolInv) ; 
Baro_Minima = New_BaroA_withoutGoogle(locsmin) ; 
Peaks = []; 

Locs = []; 

Mat = []; 

Mat2 = []; 

Mat2splitx = []; 

Mat2splity []; 

Climb = []; 

Climbplus = []; 

Abscissa_Climb = []; 

Abscissa_Climbplus = []; 

Cruisel = []; 

Cruiselplus = []; 

Abscissa_Cruisel = []; 
Abscissa_Cruiselplus = []; 

Cruise2 = []; 

Cruise2plus = []; 

Abscissa_Cruise2 = []; 
Abscissa_Cruise2plus = []; 

Cruise3 = []; 

Cruise3plus = []; 

Abscissa_Cruise3 = []; 
Abscissa_Cruise3plus = []; 

Cruise4 = []; 

Cruise4plus = []; 

Abscissa_Cruise4 = []; 
Abscissa_Cruise4plus = []; 

Descent = []; 

Descentplus = []; 

Abscissa_Descent = []; 


Abscissa_Descentplus = 


Cruisel_sum = []; 


Abscissa_Cruisel_sum = 


Cruise2_sum = []; 


Abscissa_Cruise2_sum = 


Climb_sum = []; 


Abscissa_Climb_sum = []; 


Descent_sum = []; 


BeginningClimb = []; 
EndClimb = []; 
BeginningCruisel = []; 
EndCruisel = []; 
BeginningCruise2 
EndCruise2 = []; 


ll 
— 
a 
. 


EndCruise3 = []; 
BeginningCruise4 
EndCruise4 = []; 


ll 
a 
eS 
. 


EndDescent = []; 


Phase_Climb = []; 

Phase_Cruisel = []; 
Phase_Cruise2 = []; 
Phase_Cruise3 []; 
Phase_Cruise4 Lie 
Phase Descent = []; 


% Success = []; 
= Raa. =. [i] 


Abscissa_Descent_sum = 


BeginningCruise3 = []; 


BeginningDescent = []; 


SPercentage_errors = []; 


b_descent = []; 
bl_descent = []; 
e_descent = []; 
b_climb = []; 
bl_climb = []; 


e_climb = []; 
b_cruisel = []; 
bl_cruisel = []; 
e_cruisel = []; 
b_cruise2 = []; 
bl_cruise2 = []; 
e_cruise2 = []; 


b_cruise3 = []; 
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bl_cruise3 


ll 
= 
wu 
~ 


e_cruise3 = []; 
b_cruise4 = []; 
bl_cruise4 = []; 
e_cruise4 = []; 
Peaks = [pksmax;Baro_Minima]; % List of altitude for each peak (Maxima 


first, then Minima), time growing (with the approximated scale, for 
Maxima then Minima) 

Locs = [locsmax;locsmin]; % Corresponding abscissa of Maxima first, 
then Minima, same scale, same order as above. Abscissa expressed in 
terms of approximated scale. 


Mat = [Locs,Peaks]; % Combination of Locs and Peaks 
Mat2 = sortrows(Mat,1); % Mat sorted by Locs (abscissa), Minima and 


Maxima are now mixed but sorted by time growing 

Mat2splitx = Mat2(:,1); %SFirst column of Mat2 (Abscissa) 

Mat2splity = Mat2(:,2); sSecond column of Mat2 (corresponding altitudes 
of the peaks) 


6% Segmentation between critical peaks (ignore insignificant ones) = 
Altitude Difference step 
for i=1:length (Mat2splitx) -1 


%& 2 sorts of climb: for altitudes smaller than 1500ft above minimum of 
% altitude, difference of altitude should be at 


least 

% A400ft. For rest of altitudes, variation should be 
at 

& least 1000ft. This is made to avoid undetected 
climb 

% during a pattern (the altitude is usually low 
during 

% a pattern), when the variation is at least 1000ft 
for 

& all altitudes. This is also made to avoid 
detected 

% climb during cruise, when the variation is at 
least 


% 400ft for all altitudes 
if Mat2splity(it+1)-Mat2splity(i)>1000 %&& 
Mat2splity (it+1)>1000+min (Mat2splity) 


Climb(i) = Mat2splity(i); 

Climbplus(it+1l) = Mat2splity(i+1); 

Abscissa_Climb(i) = timestamp (Mat2splitx(i)); 

Abscissa_Climbplus(i+1l) = timestamp (Mat2splitx(i+1)); 
end 


if Mat2splity(it+1l)—-Mat2splity(i)>400 && Mat2splity(i+1)- 
Mat2splity(i)< 1000 && Mat2splity (it+1) <1500+min (Altitude_Input) 


Climb(i) = Mat2splity(i); 

Climbplus(it+l) = Mat2splity(i+1); 

Abscissa_Climb(i) = timestamp (Mat2splitx(i)); 

Abscissa_Climbplus(it1l) = timestamp (Mat2splitx(itl)); 
end 


% 4 sorts of cruise: 2 for altitudes larger than 1500ft above minimum 
£ 


[e) 
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% altitude. 

% 2 sorts of cruise because I needed to separate 
cruise 

% with positive and negative slope. I had to do so 

% otherwise, with considering both negative and 

% positive slopes, a descent phase (for example) 
could 

% be between two consecutive points while cruise 
would 

& be detected at the same time. Indeed, when the 
points 

% are consecutive, the code will consider the first 
and 

% last points as limits of cruise segment, and the 

% descent, even in the case that the variation of 

% altitude is larger than 1000ft, will also be 

% considered as cruise. With consideration of slope 
for 

% cruise detection, I exclude the risk of overlap. 

% Positive slopes: Cruisel, Negative slopes: 
Cruise2. 

% (See variables like store_Abscissa_Cruisel2 or 

% store_Abscissa_Cruise22) 

% I considered that cruise can be 

% made at 500ft above the ground (Cruise3: positive 

% slope and Cruise4: negative slope). If I consider 
all 

% altitudes for cruise detection, ground phases as 

% standing or taxi phases would be considered as 

% cruise. Between 500ft and 1500 ft AGL, the 
minimum 

% difference is now 400 ft (instead of 1000 ft) to 
deal 

% with the small altitude in patterns arouns 
airfields. 


if (Mat2splity(i+1)-Mat2splity(i)<1000 && Mat2splity (it1)- 
Mat2splity(i)>0O && Mat2splity (i) >1500+min (Altitude_Input) ) 


Cruisel(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruisel (positive slope) 

Cruiselplus(itl) = Mat2splity(i+l); % Next altitude 

Abscissa_Cruisel(i) = timestamp (Mat2splitx(i)); sSCorresponding 
timestamp in the approximated scale 

Abscissa_Cruiselplus(itl) = timestamp (Mat2splitx(itl)); % 
Corresponding abscissa of next altitude in the approximated scale 

end 


if (Mat2splity(i+1)-Mat2splity(i)>-1000 && Mat2splity(it1l)- 
Mat2splity(i)<0O && Mat2splity (i) >1500+min (Altitude_Input) ) 


Cruise2(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruise2 (negative slope) 

Cruise2plus (itl) = Mat2splity (itl); 

Abscissa_Cruise2(i) = timestamp (Mat2splitx(i)); 

Abscissa_Cruise2plus(itl) = timestamp (Mat2splitx(itl)); 


end 
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if (Mat2splity (it+1)-Mat2splity(i)<400 && Mat2splity(i+1)- 
Mat2splity(i)>0O && Mat2splity (i) <1500+min (Altitude_Input) && 
Mat2splity (i) >500+min (Altitude_Input) ) 


Cruise3(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruise2 (negative slope) 
Cruise3plus (itl) = Mat2splity (itl); 
Abscissa_Cruise3(i) = timestamp (Mat2splitx(i)); 
Abscissa_Cruise3plus(i+l) = timestamp (Mat2splitx(it+l)); 
end 


if (Mat2splity(it+1)-Mat2splity(i)>-400 && Mat2splity(i+1)- 
Mat2splity(i)<0O && Mat2splity (i) <1500+min (Altitude_Input) && 
Mat2splity (i) >500+min (Altitude_Input) ) 


Cruise4(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruise2 (negative slope) 
Cruise4plus(it+1l) = Mat2splity (itl); 
Abscissa_Cruise4(i) = timestamp (Mat2splitx(i)); 
Abscissa_Cruise4plus(itl) = timestamp (Mat2splitx(itl)); 
end 


% 2 sorts of descent: for altitudes smaller than 1500ft above minimum 


% altitude, difference of altitude should be at 


least 

% -400ft. For rest of altitudes, variation should 
be at 

% least -1000ft. This is made to avoid undetected 

% descent during a pattern (the altitude is usually 
low 

% during a pattern), when the variation is at least 

%& -1000ft for all altitudes. This is also made to 
avoid 


ae 


detected descent during cruise, when the 
variation is 


ae 


at least -400ft for all altitudes 
if Mat2splity(i+1)-Mat2splity(i)<-1000 %&& 
Mat2splity (i+1)<1000+min (Mat2splity) 


Descent (i) = Mat2splity (i); 

Descentplus(itl) = Mat2splity(i+1); 

Abscissa_Descent (i) = timestamp (Mat2splitx(i)); 

Abscissa_Descentplus (itl) = timestamp (Mat2splitx(it+l)); 
end 


if Mat2splity(it+1l)-Mat2splity(i)<-400 && Mat2splity(i+1)- 
Mat2splity(i)>-1000 && Mat2splity (i) <1500+min (Altitude_Input) 


Descent (i) = Mat2splity(i); 

Descentplus (itl) = Mat2splity (itl); 

Abscissa_Descent (i) = timestamp (Mat2splitx(i)); 

Abscissa_Descentplus (itl) = timestamp (Mat2splitx(i+l)); 
end 


end 


PA 


if isempty (Climb) == 

Climb = [Climb 0]; 

Abscissa_Climb = [Abscissa_Climb 0]; 

if length (Climb) ~=length(Climbplus) 
Climb(end) = []; 
Abscissa_Climb(end) = []; 

end 

end 


if isempty (Cruisel) == 

Cruisel = [Cruisel 0]; 

Abscissa_Cruisel = [Abscissa_Cruisel 0]; 

if length (Cruisel) ~=length(Cruiselplus) 
Cruisel(end) = []; 
Abscissa_Cruisel(end) = []; 

end 

end 


if isempty (Cruise2) == 

Cruise2 = [Cruise2 0]; 

Abscissa_Cruise2 = [Abscissa_Cruise2 0]; 

if length (Cruise2) ~=length (Cruise2plus) 
Cruise2(end) = []; 
Abscissa_Cruise2(end) = []; 

end 

end 


if isempty (Cruise3) == 

Cruise3 = [Cruise3 0]; 

Abscissa_Cruise3 = [Abscissa_Cruise3 0]; 

if length (Cruise3) ~=length (Cruise3plus) 
Cruise3(end) = []; 
Abscissa_Cruise3(end) = []; 

end 

end 


if isempty (Cruise4) == 

Cruise4 = [Cruise4 0]; 

Abscissa_Cruise4 = [Abscissa_Cruise4 0]; 

if length (Cruise4) ~=length (Cruise4plus) 
Cruise4(end) = []; 
Abscissa_Cruise4(end) = []; 


end 

end 

if isempty (Descent) ==0 

Descent = [Descent 0]; 

Abscissa_Descent = [Abscissa_Descent 0]; 


if length (Descent) ~=length (Descentplus) 
Descent (end) = []; 
Abscissa_Descent (end) = []; 

end 

end 
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if isempty (Climb) == 

Climb (Climb==Climbplus) = 0; 

Climb_sum = Climb + Climbplus; 

Abscissa_Climb (Abscissa_Climb==Abscissa_Climbplus) = 0; 
Abscissa_Climb_sum = Abscissa_Climb + Abscissa_Climbplus; 
end 


if isempty (Cruisel1) ==0 

Cruisel (Cruisel==Cruiselplus) = 0; 

Cruisel_sum = Cruisel + Cruiselplus; 

Abscissa_Cruisel (Abscissa_Cruisel==Abscissa_Cruiselplus) = 0; 
Abscissa_Cruisel_sum = Abscissa_Cruisel + Abscissa_Cruiselplus; 
end 

if isempty (Cruise2) == 

Cruise2 (Cruise2==Cruise2plus) = 0; 

Cruise2_sum = Cruise2 + Cruise2plus; 

Abscissa_Cruise2 (Abscissa_Cruise2==Abscissa_Cruise2plus) = 0; 
Abscissa_Cruise2_sum = Abscissa_Cruise2 + Abscissa_Cruise2plus; 
end 


if isempty (Cruise3) == 

Cruise3 (Cruise3==Cruise3plus) = 0; 

Cruise3_sum = Cruise3 + Cruise3plus; 

Abscissa_Cruise3 (Abscissa_Cruise3==Abscissa_Cruise3plus) = 0; 
Abscissa_Cruise3_sum = Abscissa_Cruise3 + Abscissa_Cruise3plus; 
end 

if isempty (Cruise4) ==0 

Cruise4 (Cruise4==Cruise4plus) = 0; 

Cruise4_sum = Cruise4 + Cruise4plus; 

Abscissa_Cruise4 (Abscissa_Cruise4==Abscissa_Cruise4plus) = 0; 
Abscissa_Cruise4_sum = Abscissa_Cruise4 + Abscissa_Cruise4plus; 
end 


if isempty (Descent) ==0 

Descent (Descent==Descentplus) = 0; 

Descent_sum = Descent + Descentplus; 

Abscissa_Descent (Abscissa_Descent==Abscissa_Descentplus) = 0; 
Abscissa_Descent_sum = Abscissa_Descent + Abscissa_Descentplus; 
end 


fe) 


% I replace all zeros by NaN 


if isempty (Cruisel1) ==0 

Cruisel_sum(Cruisel_sum==0) = NaN; 
Abscissa_Cruisel_sum(Abscissa_Cruisel_sum==0) = NaN; 
end 

if isempty (Cruise2) ==0 

Cruise2_sum(Cruise2_sum==0) = NaN; 
Abscissa_Cruise2_sum(Abscissa_Cruise2_sum==0) = NaN; 
end 

if isempty (Cruise3) == 

Cruise3_sum(Cruise3_sum==0) = NaN; 


Abscissa_Cruise3_sum(Abscissa_Cruise3_sum==0) = NaN; 
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end 

if isempty (Cruise4) ==0 

Cruise4_sum(Cruise4_sum==0) = NaN; 
Abscissa_Cruise4_sum(Abscissa_Cruise4_sum==0) = NaN; 
end 

if isempty (Descent) ==0 

Descent_sum(Descent_sum==0) = NaN; 
Abscissa_Descent_sum(Abscissa_Descent_sum==0) = NaN; 
end 

if isempty (Climb) ==0 

Climb_sum(Climb_sum==0) = NaN; 
Abscissa_Climb_sum(Abscissa_Climb_sum==0) = NaN; 

end 


Q 


% Listing all values by original timestamp (see 
store_Abscissa_Cruisel), 

% but with the approximated scale. Column 2 is the order Column 1 
values 

% occurred. This is made to detect consecutive points later on. Cloumn 
2 of 

% store_Cruisel is the same, but column is the corresponding altitude. 
if isempty (Cruisel) == 

store_Abscissa_Cruisel = []; 

store_Cruisel = []; 


for i = 1:length (Abscissa_Cruisel_sum) -1 


if isnan(Abscissa_Cruisel_sum(i))==0 && 
isnan (Abscissa_Cruisel_sum(i+1) )== 
nxt=[Abscissa_Cruisel_sum(i),i]; 


nxtplus = [Abscissa_Cruisel_sum(it1l),i+1]; 
store_Abscissa_Cruisel = [store_Abscissa_Cruisel;nxt;nxtplus]; 
end 
if isnan(Cruisel_sum(i))==0 && isnan(Cruisel_sum(i+1) )==0 
nxt=[Cruisel_sum(i),i]; 
nxtplus = [Cruisel_sum(i+1),i+1]; 
store_Cruisel = [store_Cruisel;nxt;nxtplus]; 
end 
end 
end 


fe) 


%& Same for Cruise2 

if isempty (Cruise2) == 
store_Abscissa_Cruise2 = []; 

store _Cruise2 = []; 

for i = 1:length (Abscissa_Cruise2_sum) -1 


if isnan(Abscissa_Cruise2_sum(i))==0 && 
isnan (Abscissa_Cruise2_sum(i+1) )== 
nxt=[Abscissa_Cruise2_sum(i),i]; 
nxtplus = [Abscissa_Cruise2_sum(i+1),it+1]; 
store_Abscissa_Cruise2 = [store_Abscissa_Cruise2;nxt;nxtplus]; 
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end 

if isnan(Cruise2_sum(i))==0 && isnan(Cruise2_sum(i+1) )==0 
nxt=[Cruise2_sum(i),i]; 
nxtplus = [Cruise2_sum(i+1),i+1]; 
store_Cruise2 = [store_Cruise2;nxt;nxtplus]; 


end 
end 
end 


if isempty (Cruise3) == 


store_Abscissa_Cruise3 = []; 
store_Cruise3 = []; 
for i = 1:length (Abscissa_Cruise3_sum) -1 
if isnan(Abscissa_Cruise3_sum(i))==0 && 


isnan (Abscissa_Cruise3_sum(it+1) )== 
nxt=[Abscissa_Cruise3_sum(i),i]; 


nxtplus = [Abscissa_Cruise3_sum(it1l),i+1]; 
store_Abscissa_Cruise3 = [store_Abscissa_Cruise3;nxt;nxtplus]; 
end 
if isnan(Cruise3_sum(i))==0 && isnan(Cruise3_sum(i+1) )==0 
nxt=[Cruise3_sum(i),il; 
nxtplus = [Cruise3_sum(i+1),i+1]; 
store_Cruise3 = [store_Cruise3;nxt;nxtplus]; 
end 
end 
end 
if isempty (Cruise4) == 
store_Abscissa_Cruise4 = []; 
store _Cruise4 = []; 
for i = 1:length (Abscissa_Cruise4_sum) -1 
if isnan(Abscissa_Cruise4_sum(i))==0 && 


isnan (Abscissa_Cruise4_sum(it+1) )== 
nxt=[Abscissa_Cruise4_sum(i),i]; 


nxtplus = [Abscissa_Cruise4_sum(itl),i+1]; 
store_Abscissa_Cruise4 = [store_Abscissa_Cruise4;nxt;nxtplus]; 
end 
if isnan(Cruise4_sum(i))==0 && isnan(Cruise4_sum(i+1) )==0 
nxt=[Cruise4_sum(i),i]; 
nxtplus = [Cruise4_sum(i+1),i+1]; 
store_Cruise4 = [store_Cruise4;nxt;nxtplus]; 
end 
end 
end 


S$Same for Descent 
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if isempty (Descent) ==0 
store_Abscissa_Descent = []; 
store_Descent = []; 

for i = 1:length (Abscissa_Descent_sum) -1 


if isnan(Abscissa_Descent_sum(i))==0 && 
isnan (Abscissa_Descent_sum(i+1) )== 
nxt=[Abscissa_Descent_sum(i),i]; 


nxtplus = [Abscissa_Descent_sum(it1),i+1]; 
store_Abscissa_Descent = [store_Abscissa_Descent;nxt;nxtplus]; 
end 
if isnan(Descent_sum(i))==0 && isnan(Descent_sum(i+1) )==0 
nxt=[Descent_sum(i),i]; 
nxtplus = [Descent_sum(i+1),i+1]; 
store_Descent = [store_Descent;nxt;nxtplus]; 
end 
end 
end 


fe) 


% Same for Climb 

if isempty (Climb) == 
store_Abscissa_Climb = []; 

store _Climb = []; 

for i = 1:length (Abscissa_Climb_sum) -1 


if isnan(Abscissa_Climb_sum(i))==0 && 
isnan (Abscissa_Climb_sum(i+1) ) == 
nxt=[Abscissa_Climb_sum(i),i]; 


nxtplus = [Abscissa_Climb_sum(i+1),i+1]; 
store_Abscissa_Climb = [store_Abscissa_Climb;nxt;nxtplus]; 
end 
if isnan(Climb_sum(i))==0 && isnan(Climb_sum(i+1) )==0 
nxt=[Climb_sum(i),i]; 
nxtplus = [Climb_sum(i+1),i+1]; 
store_Climb = [store_Climb;nxt;nxtplus]; 
end 
end 
end 


fe) 


% I deleted all repeated rows for store_Abscissa_Cruisel and 
store_Cruisel. 

% I do not want to sort store_Cruisel by altitude, but by order in 
which 

% they occurred (That is why I used sortrows) 

if isempty (Cruisel1) ==0 

store_Abscissa_Cruisel2 = unique(store_Abscissa_Cruisel ,'rows'); 
store_Cruisel2 = unique(store_Cruisel ,'rows'); 

store_Cruisel2 = sortrows(store_Cruisel2,2); 


end 


SSame for Cruise2 


if isempty (Cruise2) == 


store_Abscissa_Cruise22 = unique(store_Abscissa_Cruise2 ,'rows'); 
store_Cruise22 = unique(store_Cruise2 ,'rows'); 

store_Cruise22 = sortrows (store_Cruise22,2); 

end 


SSame for Cruise3 
if isempty (Cruise3) == 


store_Abscissa_Cruise32 = unique(store_Abscissa_Cruise3 ,'rows'); 
store_Cruise32 = unique(store_Cruise3 ,'rows'); 

store_Cruise32 = sortrows (store_Cruise32,2); 

end 


SSame for Cruise4 
if isempty (Cruise4) ==0 


store_Abscissa_Cruise42 = unique(store_Abscissa_Cruise4 ,'rows'); 
store_Cruise42 = unique(store_Cruise4 ,'rows'); 

store_Cruise42 = sortrows (store_Cruise42,2); 

end 


SSame for Descent 
if isempty (Descent) == 


store_Abscissa_Descent2 = unique(store_Abscissa_Descent, 'rows'); 
store_Descent2 = unique(store_Descent, 'rows'); 

store_Descent2 = sortrows (store_Descent2,2); 

end 


Same for Climb 
if isempty (Climb) == 


store_Abscissa_Climb2 = unique(store_Abscissa_Climb, 'rows'); 
store_Climb2 = unique(store_Climb, 'rows'); 

store_Climb2 = sortrows(store_Climb2,2); 

end 


6% Cruisel 
if isempty (Cruisel) == 
b_cruisel = find(diff([store_Abscissa_Cruisel2(:,2)])==1); 
bl_cruisel = b_cruisel; 
for i = 1:length(b_cruisel)-1 
if b_cruisel (i+1)-b_cruisel (i)==1 && 
store _Cruisel2 (b_cruisel (i+1),1)>=store_Cruisel2 (b_cruisel (i),1) 
bl_cruisel(it+l) = 0; 
else continue 
end 
end 
b1_cruisel (bl_cruisel==0)=[]; 
bl_cruisel = bl_cruisel'; 
BeginningCruisel = store_Abscissa_Cruisel2(bl_cruisel,1); 
BeginningCruisel = BeginningCruisel'; 
BeginningCruisel_Alt = Altitude_Input (BeginningCruisel) ; 
BeginningCruisel_Alt BeginningCruisel_Alt'; 


217 


218 


for i = 1l:length(store_Abscissa_Cruisel2)-1 
if (store_Abscissa_Cruisel2(i+l1,2) - 
store_Abscissa_Cruisel2(i,2)==1 && 
store_Cruisel2 (i+1,1)<store_Cruisel2(i,1))||(store_Abscissa_Cruisel2 (i+ 
1,2) - store_Abscissa_Cruisel2(i,2) ~=1) 
e_cruisel(i) = store_Abscissa_Cruisel2(i,1); 
end 
end 
if exist ('e_cruisel')== 
e_cruisel (e_cruisel==0) = []; 
EndCruisel = [e_cruisel store_Abscissa_Cruisel2(end,1)]; 
EndCruisel (EndCruisel==0) = []; 
EndCruisel_Alt = Altitude_Input (EndCruisel) ; 
else 
EndCruisel = [store_Abscissa_Cruisel2(end,1)]; 
EndCruisel (EndCruisel==0) = []; 
EndCruisel_Alt = Altitude_Input (EndCruisel) ; 
end 
end 


ae 


& Cruise2 
Same for Cruise2 (See Cruise 1) 
if isempty (Cruise2) == 
b_cruise2 = find(diff([store_Abscissa_Cruise22(:,2)])==1); 
bl_cruise2 = b_cruise2; 
for i = 1:length(b_cruise2)-1 
if b_cruise2 (i+1)-b_cruise2(i)==1 && 
store _Cruise22 (b_cruise2 (i+1),1)<=store_Cruise22 (b_cruise2 (i),1) 
bl_cruise2(i+l) = 0; 
else continue 
end 
end 
bl_cruise2 (bl_cruise2==0)=[]; 
bl_cruise2 = bl_cruise2'; 
BeginningCruise2 = store_Abscissa_Cruise22 (bl_cruise2,1); 
BeginningCruise2 = BeginningCruise2'; 
BeginningCruise2_Alt = Altitude_Input (BeginningCruise2) ; 
BeginningCruise2_Alt = BeginningCruise2_Alt'; 


ae 


for i = 1l:length(store_Abscissa_Cruise22)-1 
if (store_Abscissa_Cruise22(i+1,2) - 
store_Abscissa_Cruise22(i,2)==1 && 
store_Cruise22 (it+1,1)>store_Cruise22(i,1)) || (store_Abscissa_Cruise22 (i+ 
1,2) - store_Abscissa_Cruise22 (i,2) ~=1) 
e_cruise2(i) = store_Abscissa_Cruise22(i,1); 
end 
end 
if exist ('e_cruise2')== 
e_cruise2 (e_cruise2==0) = []; 
EndCruise2 = [e_cruise2 store_Abscissa_Cruise22(end,1)]; 
EndCruise2 (EndCruise2==0) = []; 
EndCruise2_Alt = Altitude_Input (EndCruise2) ; 
else 
EndCruise2 = [store_Abscissa_Cruise22(end,1)]; 
EndCruise2 (EndCruise2==0) = []; 
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EndCruise2_Alt = Altitude_Input (EndCruise2) ; 
end 
end 


%% Cruise3 


SSame for Cruise3 (See Cruise 1) 
if isempty (Cruise3) == 
b_cruise3 = find(diff([store_Abscissa_Cruise32(:,2)])==1); 
bl_cruise3 = b_cruise3; 
for i = 1:length(b_cruise3)-1 
if b_cruise3 (i+1)-b_cruise3(i)==1 && 
store _Cruise32 (b_cruise3 (i+1),1)>=store_Cruise32 (b_cruise3(i),1) 
bl_cruise3(i+l) = 0; 
else continue 
end 
end 
bl_cruise3 (bl_cruise3==0)=[]; 
bl_cruise3 = bl_cruise3'; 
BeginningCruise3 = store_Abscissa_Cruise32 (bl_cruise3,1); 
BeginningCruise3 = BeginningCruise3'; 
BeginningCruise3_Alt = Altitude_Input (BeginningCruise3) ; 
BeginningCruise3_Alt BeginningCruise3_Alt'; 


for i = 1l:length(store_Abscissa_Cruise32)-1 
if (store_Abscissa_Cruise32(i+1,2) - 
store_Abscissa_Cruise32(i,2)==1 && 
store_Cruise32 (i+1,1)<store_Cruise32(i,1))|| (store_Abscissa_Cruise32 (i+ 
1,2) - store_Abscissa_Cruise32 (i,2) ~=1) 
e_cruise3(i) = store_Abscissa_Cruise32(i,1); 
end 
end 
if exist ('e_cruise3')== 
e_cruise3 (e_cruise3==0) = []; 
EndCruise3 = [e_cruise3 store_Abscissa_Cruise32(end,1)]; 
EndCruise3 (EndCruise3==0) = []; 
EndCruise3_Alt = Altitude_Input (EndCruise3) ; 
else 
EndCruise3 = [store_Abscissa_Cruise32(end,1)]; 
EndCruise3 (EndCruise3==0) = []; 
EndCruise3_Alt = Altitude_Input (EndCruise3) ; 
end 
end 


oe 


%& Cruise4 
Same for Cruise4 (See Cruise 1) 
if isempty (Cruise4) == 


ae 


b_cruise4 = find(diff([store_Abscissa_Cruise42(:,2)])==1); 
bl_cruise4 = b_cruise4; 
for i = 1:length(b_cruise4) -1 

if b_cruise4 (i+1) -b_cruise4(i)==1 && 


store _Cruise42 (b_cruise4 (i+1),1)<=store_Cruise42 (b_cruise4 (i),1) 


bl_cruise4(i+l) = 0; 
else continue 
end 
end 
b1_cruise4 (bl_cruise4==0)=[]; 
bl_cruise4 = bl_cruise4'; 


BeginningCruise4 = BeginningCruise4'; 
BeginningCruise4_ Alt = Altitude_Input (BeginningCruise4) ; 
BeginningCruise4_ Alt = BeginningCruise4_Alt'; 


for i = 1l:length(store_Abscissa_Cruise42) -1 
if (store_Abscissa_Cruise42(it+l1,2) - 
store_Abscissa_Cruise42 (i,2)==1 && 


BeginningCruise4 = store_Abscissa_Cruise42 (bl1_cruise4,1); 
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store_Cruise42 (it+1,1)>store_Cruise42(i,1)) || (store_Abscissa_Cruise42 (i+ 


1,2) - store_Abscissa_Cruise42 (i, 2) ~=1) 
e_cruise4(i) = store_Abscissa_Cruise42(i,1); 
end 
end 
if exist ('e_cruise4')== 
e_cruise4 (e_cruise4==0) = []; 


EndCruise4 (EndCruise4==0) = []; 

EndCruise4_ Alt = Altitude_Input (EndCruise4) ; 
else 

EndCruise4 = [store_Abscissa_Cruise42(end,1)]; 
EndCruise4 (EndCruise4==0) = []; 

EndCruise4_ Alt = Altitude_Input (EndCruise4) ; 
end 

end 


6% Descent 
if isempty (Descent) == 


b_descent = find(diff([store_Abscissa_Descent2(:,2)])==1); 


bl_descent = b_descent; 
for i = 1:length(b_descent)-1 
if b_descent (i+1)-b_descent (i)==1 && 


store _Descent2 (b_descent (i+1),1)<=store_Descent2 (b_descent (i),1) 


bl_descent(i+l) = 0; 
else continue 
end 
end 
bli_descent (b1_descent==0)=[]; 
bi_descent = bl_descent'; 


BeginningDescent = BeginningDescent'; 
BeginningDescent_Alt = Altitude_Input (BeginningDescent) ; 
BeginningDescent_Alt = BeginningDescent_Alt'; 


for i = 1l:length(store_Abscissa_Descent2) -1 
if (store_Abscissa_Descent2(i+1,2) - 
store_Abscissa_Descent2(i,2)==1 && 


EndCruise4 = [e_cruise4 store_Abscissa_Cruise42(end,1)]; 


BeginningDescent = store_Abscissa_Descent2 (bl_descent,1); 


store_Descent2 (i+1,1)>=store_Descent2(i,1)) || (store_Abscissa_Descent2 (i 


+1,2) - store_Abscissa_Descent2 (i,2) ~=1) 
e_descent (i) = store_Abscissa_Descent2(i,1); 
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end 

end 
if exist ('e_descent')==1 

e_descent (e_descent==0) = []; 

EndDescent = [e_descent store_Abscissa_Descent2(end,1)]; 

EndDescent (EndDescent==0) = []; 

EndDescent_Alt = Altitude_Input (EndDescent) ; 
else 

EndDescent = [store_Abscissa_Descent2(end,1)]; 

EndDescent (EndDescent==0) = []; 

EndDescent_Alt = Altitude_Input (EndDescent) ; 
end 
end 


%% Climb 
if isempty (Climb) == 
b_climb = find(diff([store_Abscissa_Climb2(:,2)])==1); 
bl_climb = b_climb; 
for i = 1:length(b_climb)-1 
if b_climb (i+1)-b_climb(i)==1 && 
store_Climb2 (b_climb (i+1),1)>=store_Climb2 (b_climb(i),1) 


bl_climb(i+l) = 0; 
else continue 
end 
end 
b1_climb (b1_climb==0)=[]; 


bl_climb = bl_climb'; 

BeginningClimb = store_Abscissa_Climb2 (bl_climb,1); 
BeginningClimb = BeginningClimb'; 
BeginningClimb_Alt = Altitude_Input (BeginningClimb) ; 
BeginningClimb_Alt = BeginningClimb_Alt'; 


for i = 1l:length(store_Abscissa_Climb2)-1 


if (store_Abscissa_Climb2(i+1,2) - store_Abscissa_Climb2 (i, 2) ==1 
&& 
store_Climb2 (it+1,1)<=store_Climb2(i,1)) || (store_Abscissa_Climb2 (i+1, 2) 
—- store_Abscissa_Climb2 (i, 2) ~=1) 
e_climb(i) = store_Abscissa_Climb2(i,1); 
end 
end 
if exist ('e_climb')==1 
e_climb(e_climb==0) = []; 
EndClimb = [e_climb store_Abscissa_Climb2(end,1)]; 
EndClimb (EndClimb==0) = []; 
EndClimb_Alt = Altitude_Input (EndClimb) ; 
else 
EndClimb = [store_Abscissa_Climb2(end,1)]; 
EndClimb (EndClimb==0) = []; 
EndClimb_Alt = Altitude_Input (EndClimb) ; 
end 
end 


if isempty (Climb) ==0 
Phase_Climb = [BeginningClimb; EndClimb]; 
end 


if isempty (Cruisel) == 


Phase_Cruisel = [ 
end 
if isempty (Cruise 
Phase_Cruise2 = [ 
end 
if isempty (Cruise 
Phase_Cruise3 = [ 
end 
if isempty (Cruise 
Phase_Cruise4 = [ 
end 


if isempty (Descent) = 
BeginningDescent; 


Phase_Descent = [ 
end 


hold on 


BeginningCruisel 


2) ==0 
BeginningCruise2 


3) ==0 


4) ==0 
BeginningCruise4 


0 


if isempty (Climb) == 


TClimb = reshape ( 
TClimb = sortrows 
end 


if isempty (Cruise 
TCruisel = 
TCruisel = 
end 

if isempty (Cruise 
TCruise2 = 
TCruise2 = 
end 

if isempty (Cruise 
TCruise3 = 
TCruise3 = 
end 

if isempty (Cruise 
TCruise4 = 
TCruise4 = 
end 

if isempty (Descen 
TDescent = 
TDescent = 
end 


sortro 
sortro 
sortro 
sortro 


sortro 


if isempty (Climb) 

XCl = zeros (size ( 

for i = 1:length( 

if any (TClimb 

increment 
XC1(i) = 

end 
end 


Phase_Climb, [], 
(TClimb) ; 


1) ==0 


reshape (Phase_Cruisel, [], 


ws (TCruisel); 


2) ==0 


reshape (Phase_Cruise2,[], 


ws (TCruise2) ; 


3) ==0 


reshape (Phase_Cruise3, [], 


ws (TCruise3) ; 


4) == 


reshape (Phase_Cruise4, [], 


ws (TCruise4); 


t)== 


reshape (Phase_Descent, [], 


ws (TDescent) ; 


==0 


Ne 
XC1) 
==i) 


i; 


BeginningCruise3; 


;EndCruisel]; 


;EndCruise2]; 


EndCruise3]; 


;EndCruise4]; 


EndDescent]; 


1); 


1); 


1); 


1); 


1); 


1); 


w_BaroA_withoutGoogle) ); 


Screation of a vector 


Sif any value from this vector is equal to 


$==> vector with TClimb values separated by zeros 
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for i = 1:length(BeginningClimb) 
Xcll find (BeginningClimb (i) ==XCl); 
Xcl2 = min(find(XCl1>Xcll1)); 
IntclX1X2 = Xcl1+1:Xcl2-1; 
for j=1:length(XC1) 
if any (IntclX1X2==}) 
XC1(3) = J; 
end 
end 
end 
end 


if isempty (Cruisel1) ==0 
XC1l = zeros (size (New_BaroA_withoutGoogle) ); Screation of a vector 
for i = 1:length(XCl) 

if any(TCruisel==i) %if any value from this vector is equal to 
increment 


XC1(i) = i; 
end 
end 


$==> vector with TCruisel values separated by zeros 


for i = 1:length(BeginningCruisel) 
find (BeginningCruisel (i) ==XC1); 
Xc12 = min(find(XC1>Xc11)); 
IntclX1X2 = Xcl11+1:Xcl2-1; 
for j=1:length (XC1) 
if any (Intc1lX1X2==j) 
XC1(j) = J; 
end 
end 
end 
end 


x 
Q 
pa 
bh 
ll 


if isempty (Cruise2) ==0 
XC2 = zeros (size (New_BaroA_withoutGoogle) ); Screation of a vector 
for i = 1:length(XC2) 

if any(TCruise2==i) %if any value from this vector is equal to 
increment 

XC2(i) = i; 

end 

end 


S==> vector with TCruise2 values separated by zeros 
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for i = 1:length(BeginningCruise2) 

Xc21 find (BeginningCruise2 (i) ==XC2); 

Xc22 = min(find(XC2>Xc21)); 

Intc2X1X2 = Xc21+1:Xc22-1; 

for j=1:length (XC2) 
if any (Intc2X1X2==j) 
XC2(9) = J; 
end 


end 
end 
end 


if isempty (Cruise3) ==0 
XC3 = zeros (size (New_BaroA_withoutGoogle) ); Screation of a vector 
for i = 1:length(XC3) 
if any(TCruise3==i) %if any value from this vector is equal to 
increment 
XC3(i) = i; 


end 
end 


$==> vector with TCruise3 values separated by zeros 


for i = 1:length (BeginningCruise3) 
Xc31 = find(BeginningCruise3 (i) ==XC3) ; 
Xc32 = min(find(XC3>Xc31)); 
Intc3X1X2 = Xc31+1:Xc32-1; 
for j=1:length (XC3) 
if any (Intc3X1X2==j) 
XC3(J) = JF 
end 
end 
end 
end 


if isempty (Cruise4) ==0 
XC4 = zeros (size (New_BaroA_withoutGoogle) ); Screation of a vector 
for i = 1:length(XC4) 

if any(TCruise4==i) %if any value from this vector is equal to 
increment 

XC4(i) = i; 

end 

end 


S==> vector with TCruise4 values separated by zeros 


for i = 1:length(BeginningCruise4) 
Xc41 = 

Xc42 = min(find(XC4>Xc41) ); 
Intc4X1X2 = Xc41+1:Xc42-1; 


find (BeginningCruise4 (i) ==XC4); 


for j=1:length (XC4) 


end 
end 
end 


ale Sa 
XDe 
for 


if any (Intc4X1X2==j) 


XC4(j) = 3; 
end 


sempty (Descent) ==0 


= zeros (size (New_BaroA_withoutGoogle) ); Screation of a vector 


i = 1:length (XDe) 
if any (TDescent==i1) 


Sif any value from this vector is equal to 


increment 
XDe(i) = i; 
end 
end 


S==> vector with TDescent values separated by zeros 


for i = 1:length(BeginningDescent) 

Xdel = find(BeginningDescent (i) ==XDe) ; 
Xde2 = min(find(XDe>Xdel) ); 

IntdeX1X2 = Xdel+1:Xde2-1; 


for j=1:length (XDe) 


if any (IntdeX1X2==j) 


XDe(j) = J; 
end 

end 

end 

end 


if isempty (Climb) ==0 


XC1(XC1l~=0) = 5; 

end 

if isempty (Cruisel1) ==0 
XC1 (XC1~=0) = 6; 

end 

if isempty (Cruise2) ==0 
XC2 (XC2~=0) = 6; 

end 

if isempty (Cruise3) ==0 
XC3 (XC3~=0) = 6; 

end 

if isempty (Cruise4) ==0 
XC4 (XC4~=0) = 6; 

end 

if isempty (Descent) ==0 


XDe (XDe~=0) = 7; 
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end 
if isempty (Cruisel1) ==0 
XC = XC1; 
end 
if exist ('XC!')==1 
for i=1:length (XC) 
if XC1(i)~=0 
XC(i) = XC1 (i) ; 
end 
if XC2(i)~= 
XC(i) = XC2(i); 
end 
if isempty (Cruise3) ==0 
if XC3(i)~=0 
XC(i) = XC3(i) ; 
end 
end 
if isempty (Cruise4) ==0 
if XC4(i)~=0 
XC(i) = XC4(i) ; 
end 
end 
end 
end 
Vector = zeros (size(Timestamp_Input) ); 
if exist ('XC1')==1 
Vector = XCl; 
end 
if exist ('XC')==1 
for i=1:length (XC) 
if XC(i)~=0 
Vector(i) = XC(i) 4 
end 
if exist ('XDe')==1 
if XDe(i)~=0 
Vector(i) = XDe(i); 
end 
end 
end 
end 
nan_values = sum(isnan(Vector) ); 


[oom) 


%% Re-creating original values in order to "fill" segments with the 
original altitude 
if isempty (Climb) == 


for i = 1:size(Phase_Climb, 2) Snumber of columns 
Limits _Climb_t = Phase_Climb(:,i); % Consider each column of 


Phase_Climb. Each column represents the limits of one segment. 
(Beginning = lst line, End = 2nd line) 


Interval_Climb_timestamp = Limits_Climb_t (1):1:Limits_Climb_t (2); % 
Creating values of original variable timestamp, with 1s increment 


Interval_Climb_Baro = Altitude_Input (Interval_Climb_timestamp); % 
Creating corresponding values of altitude from previous line statement 


2nd 


end 
end 
hold on 


Ssame for Cruisel 


if isempty (Cruisel1) ==0 
for i = 1:size(Phase_Cruisel, 2) 
Limits _Cruisel_t = Phase_Cruisel(:,i); 


Interval_Cruisel_timestamp = 
Limits_Cruisel_t(1):1:Limits_Cruisel_t (2); 

Interval_Cruisel_Baro = Altitude_Input (Interval_Cruisel_timestamp) ; 
end 
end 
hold on 


Ssame for Cruise2 


if isempty (Cruise2) ==0 
for i = 1l:size(Phase_Cruise2, 2) 
Limits _Cruise2_t = Phase_Cruise2(:,i) ; 


Interval_Cruise2_timestamp = 
Limits_Cruise2_t(1):1:Limits_Cruise2_t (2); 

Interval_Cruise2_Baro = Altitude_Input (Interval_Cruise2_timestamp) ; 
end 
end 
hold on 


Ssame for Cruise3 
if isempty (Cruise3) == 
for i = 1:size(Phase_Cruise3, 2) 
Limits _Cruise3_t = Phase_Cruise3(:,i) ; 


Interval_Cruise3_timestamp = 
Limits_Cruise3_t(1):1:Limits_Cruise3_t (2); 

Interval_Cruise3_Baro = Altitude_Input (Interval_Cruise3_timestamp) ; 
end 
end 
hold on 


Ssame for Cruise4 


if isempty (Cruise4) ==0 
for i = 1:size(Phase_Cruise4, 2) 
Limits _Cruise4_t = Phase_Cruise4(:,i) ; 


Interval_Cruise4_timestamp = 
Limits_Cruise4_t(1):1:Limits_Cruise4_t (2); 

Interval_Cruise4 Baro = Altitude_Input (Interval_Cruise4 timestamp) ; 
end 
end 
hold on 


S$same for Descent 


if isempty (Descent) ==0 


for i = 1:size(Phase_Descent, 2) 


Limits_Descent_t = Phase_Descent (:,i); 


Interval_Descent_timestamp 


Limits _Descent_t(1):1:Limits_Descent_t (2); 


Interval_Descent_Baro = Altitude_Input (Interval_Descent_timestamp) ; 


end 
end 


sHere I try to build one vector with all phases combined 


for i = 1:length (Vector) 


if isnan(Vector_EasyPhaseId(i) ) 


Vector(i) = Vector <Geeyenadera a ); 


end 
end 


Vector_EasyPhaseId_Only = Vector_EasyPhaseld; 


Vector_EasyPhaseId_Only (Vector_ 
Length_Simple_Only = length (Vector_EasyPhaseId_Only) ; 


EFasyPhaseId_Only==0) 


nan_values = sum(isnan(Vector) ); 
G_A = sum(Vector(:)==10); 
T_D = sum(Vector(:)==9); 


° 
oO 
° 

oO 


fe) 


6% Comparison with ideal plot 
Success = 0; 


I display the final Vector in the workplace 
assignin('base', 'Vector',Vector) ; 


i)) 


zeros = 0; 
for i = 1:length (Altitude_Input) 
if (Vector (i)==Phase_code ( 
Success = Success + 1; 
end 
if (Vector (i)==0) 
Zeros = Zeros + 1; 
end 
end 
%& Success (Success==0) = []; 
Fail = length(Vector) - Success 


—- nan_values; 


Percentage_errors (Increment_Optimization) = 


Fail/Length_Simple_Only*100; 


end 


Percentage_errors (Percentage_errors == 0) = []; 


end 


| | any (Vector_ 


FasyPhaseld ( 


[]; 
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i))~=0 
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B.11: Matlab function to obtain rates using Local Regression/Rate of Climb to find the best 


method (LRRC_func_errors.m) 


function 
[Percentage_errors]=LRRC_func_errors (Timestamp_Input,Altitude_Input,Pha 
se_code, Vector_EasyPhaseld, FlightNumber) 


for Increment_Optimization = 1:1:300 

MessageFlightNumber = ['Flight #',num2str(FlightNumber) ]; 
disp (MessageFlightNumber) 

MessageMethod = ['Local Regression/Rate of Climb']; 


disp (MessageMethod) 
Increment_Optimization 
New_BaroA_withoutGoogle = 
smooth (Altitude_Input, Increment_Optimization, 'loess'); 
timestamp = 1:numel(Timestamp_Input); 
hold on 


Timestamp_Climb = []; 
Timestamp_Cruise =[]; 
Timestamp_Descent = []; 


Climb = []; 

Climbplus = []; 
Abscissa_Climb = []; 
Abscissa_Climbplus = []; 
Cruisel = []; 

Cruiselplus = []; 
Abscissa_Cruisel = []; 
Abscissa_Cruiselplus = []; 
Cruise2 = []; 

Cruise2plus = []; 
Abscissa_Cruise2 = []; 
Abscissa_Cruise2plus = []; 
Cruise3 = []; 

Cruise3plus = []; 
Abscissa_Cruise3 = []; 
Abscissa_Cruise3plus = []; 
Cruise4 = []; 

Cruise4plus = []; 
Abscissa_Cruise4 = []; 
Abscissa_Cruise4plus = []; 
Descent = []; 

Descentplus = []; 
Abscissa_Descent = []; 
Abscissa_Descentplus = []; 


Cruisel_sum = []; 
Abscissa_Cruisel_sum 
Cruise2_sum = []; 
Abscissa_Cruise2_sum 


ll 
— 
Hae 
~ 


ll 
a 
wu 
~ 
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Climb_sum = []; 
Abscissa_Climb_sum = []; 
Descent_sum = []; 
Abscissa_Descent_sum = []; 


BeginningClimb = []; 
EndClimb = []; 

BeginningCruisel 
EndCruisel = []; 
BeginningCruise2 = []; 
EndCruise2 = []; 
BeginningCruise3 
EndCruise3 = []; 
BeginningCruise4 = []; 
EndCruise4 = []; 
BeginningDescent 
EndDescent = []; 


ll 
a 
= 
~ 


ll 
a 
es 
. 


ll 
— 
wu 
s 


Phase_Climb = []; 


Phase_Cruisel = []; 
Phase_Cruise2 = []; 
Phase_Cruise3 = []; 
Phase_Cruise4 = []; 
Phase _Descent = []; 
Success = []; 

Fail = []; 
%$Percentage_errors = []; 


b_descent = []; 
bl_descent = []; 
e_descent = [] 
b_climb = []; 
bl_climb = []; 
1; 


7 


e_climb = [ 
b_cruisel = []; 
bl_cruisel = []; 
e_cruisel = []; 
b_cruise2 = []; 
bl_cruise2 = []; 
e_cruise2 = []; 
b_cruise3 = []; 
bl_cruise3 = []; 
e_cruise3 = []; 
b_cruise4 = []; 
bl_cruise4 = []; 


e_cruise4 = []; 
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Cruise3_sum = []; 
Abscissa_Cruise3_sum = []; 


Cruise4_sum = []; 

Abscissa_Cruise4_sum [l; 
$% Segmentation between critical peaks (ignore insignificant ones) 
for i=1:length (timestamp) —30 


if (New_BaroA_withoutGoogle (i+29) -New_BaroA_withoutGoogle(i))>100 
Timestamp_Climb (i) =timestamp (i); 
Interval_Climb_timestamp = timestamp(i) : timestamp (it+29); 


Interval_Climb = Timestamp_Input (Interval_Climb_timestamp) ; 
end 


if (New_BaroA_withoutGoogle (i+29) -New_BaroA_withoutGoogle(i))>-100 

&& (New_BaroA_withoutGoogle (i+29)-New_BaroA_withoutGoogle(i))<100 && 

Timestamp_Input (i) >500+min (Timestamp_Input) 
Timestamp_Cruise(i)=timestamp (i); 
Interval_Cruise_timestamp = timestamp(i) : timestamp (it+29); 
Interval_Cruise = 

Timestamp_Input (Interval_Cruise_timestamp) ; % (i) 

end 


ae 


end 


if (New_BaroA_withoutGoogle (i+29) -New_BaroA_withoutGoogle(i))<-100 
Timestamp_Descent (i) =timestamp (i); 
Interval_Descent_timestamp = timestamp(i) : timestamp (i+29); 


Interval_Descent = Timestamp_Input (Interval_Descent_timestamp) ; 
end 


end 
XCl = zeros (size (Altitude_Input)); 
for i = 1:length(XCl) 

if size(Timestamp_Climb) ~=0 


if any (Timestamp_Climb==i) %if any value from this vector is equal 
to increment 
XC1l(i) = i; 
end 
end 
end 
XCr = zeros (size (Altitude_Input) ); 


for i = 1:length(XCr) 

if size (Timestamp_Cruise) ~=0 

if any (Timestamp_Cruise==i) %if any value from this vector is 
equal to increment 
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XCr(i) = i; 
end 
end 
end 
XDe = zeros (size (Altitude_Input)); 


for i = 1:length(XDe) 
if size(Timestamp_Descent) ~=0 


if any (Timestamp_Descent==i) %if any value from this vector is 

equal to increment 
XDe(i) = i; 

end 

end 
end 
XC1(XC1l~=0) = 5; 
XCr (XCr~=0) = 6; 
XDe (XDe~=0) = 7; 


Vector = XCl; 
for i=1:length (XC1) 
if XCr(i)~=0 


Vector(i) = XCr(i) ; 
end 
if XDe(i)~=0 
Vector(i) = XDe(i); 
end 
end 
nan_values = sum(isnan(Vector) ); 


sHere I try to build one vector with all phases combined 
for i = 1:length (Vector) 
if isnan(Vector_EasyPhaselId(i) ) | | any (Vector_EasyPhaselId(i) ) ~=0 
Vector(i) = Vector Pasuphesciart 7 


end 
end 
Vector_EasyPhaseId_Only = Vector_EasyPhaseld; 
Vector_EasyPhaseId_Only (Vector_EasyPhaseId_Only==0) = []; 
Length_Simple_Only = length (Vector_EasyPhaseId_Only) ; 


nan_values = sum(isnan(Vector) ); 
G_A = sum(Vector(:)==10); 
T_D = sum(Vector(:)==9); 


I display the final Vector in the workplace 
% assignin('base', 'Vector',Vector) ; 

6% Comparison with ideal plot 

Success = 0; 

Zeros = 0; 


for i = 1:length (Altitude_Input) 
if (Vector (i)==Phase_code (i) ) 
Success = Success + 1; 
end 
if (Vector (i)==0) 
Zeros = Zeros + 1; 
end 
end 
% Success (Success==0) = []; 
Fail = length(Vector) - Success - nan_values; 
Percentage_errors (Increment_Optimization) = 
Fail/Length_Simple_Only*100; 


end 


Percentage_errors(Percentage_errors == 0) = []; 


end 
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B.12: Matlab function to identify phases of flight using Down-Sampling/Altitude 
Difference if it is the best method found either on traffic patterns or non-traffic patterns 


(DSAD.m) 


function 

[Vector] =DSAD (Timestamp_Input,Altitude_Input, Increment_Optimization) 
% DS: Down-Sampling 

% AD: Altitude Difference 


Timestamp_Input = Timestamp_Input - min(Timestamp_Input) +1; 
6% Creation of a new scale 
New_timestamp = 1:Increment_Optimization:numel (Timestamp_Input) ; 


New_BaroA_withoutGoogle = 
Altitude_Input (1: Increment_Optimization:numel (Altitude_Input) ); 


6% Detection of Maxima and Minima from the approximated scale 

[pksmax, locsmax] = findpeaks (New_BaroA_withoutGoogle) ; 

BaroInv = 1.01*max (New_BaroA_withoutGoogle) - New_BaroA_withoutGoogle; 
[pksmin, locsmin] = findpeaks (BarolInv) ; 


if New_BaroA_withoutGoogle(1)<New_BaroA_withoutGoogle(2) % made to 

detect first minimum 
pksmin = [pksmin;New_BaroA_withoutGoogle(1)]; 
locsmin = [locsmin;New_timestamp (1) ]; 


end 
if New_BaroA_withoutGoogle (end) <New_BaroA_withoutGoogle(end-1) % made 
to detect last minimum 
pksmin = [pksmin;New_BaroA_withoutGoogle (end) ]; 
locsmin = [locsmin;New_timestamp (end) ]; 
end 


Baro_Minima = Altitude_Input (locsmin) ; 


SThis part was used in order to test several values of parameter n 
(here 

en=1 only) 

Peaks = []; 

Locs = []; 

Mat = []; 

Mat2 = []; 

Mat2splitx = []; 
Mat2splity []; 

Climb = []; 

Climbplus = []; 
Abscissa_Climb = []; 
Abscissa_Climbplus = []; 
Cruisel = []; 
Cruiselplus = []; 
Abscissa_Cruisel = []; 


Abscissa_Cruiselplus 


Cruise2 = []; 
Cruise2plus = []; 
Abscissa_Cruise2 = []; 
Abscissa_Cruise2plus = 
Cruise3 = []; 
Cruise3plus = []; 
Abscissa_Cruise3 = []; 
Abscissa_Cruise3plus = 
Cruise4 = []; 
Cruise4plus = []; 
Abscissa_Cruise4 = []; 
Abscissa_Cruise4plus = 
Descent = []; 
Descentplus = []; 
Abscissa_Descent = []; 


Abscissa_Descentplus = 


Cruisel_sum = []; 
Abscissa_Cruisel_sum = 
Cruise2_sum = []; 


Abscissa_Cruise2_sum = 


Climb_sum = []; 


Abscissa_Climb_sum = []; 


Descent_sum = []; 
Abscissa_Descent_sum = 


BeginningClimb = []; 
EndClimb = []; 
BeginningCruisel = []; 
EndCruisel = []; 
BeginningCruise2 
EndCruise2 = []; 
BeginningCruise3 
EndCruise3 = []; 
BeginningCruise4 
EndCruise4 = []; 
BeginningDescent 
EndDescent = []; 


ll 
a 
wu 
~ 


ll 
= 
uw 
. 


ll 
— 
os 
. 


ll 
— 
wu 
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Phase_Climb = []; 

Phase_Cruisel = []; 
Phase_Cruise2 = []; 
Phase_Cruise3 []; 
Phase_Cruise4 []; 
Phase Descent = []; 


Success = []; 
Fail = []; 


b_descent = []; 
bl_descent = []; 
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e_descent = []; 


b_climb = []; 
bl_climb = []; 
e_climb = []; 


b_cruisel = []; 
bl_cruisel = []; 
e_cruisel = []; 


b_cruise2 = []; 


bl_cruise2 = []; 
e_cruise2 = []; 
b_cruise3 = []; 
bl_cruise3 = []; 


e_cruise3 = []; 


b_cruise4 = []; 
bl_cruise4 = []; 
e_cruise4 = []; 


fe) 


Peaks = [pksmax;Baro_Minima]; % List of altitude for each peak (Maxima 
first, then Minima), time growing (with the approximated scale, for 
Maxima then Minima) 

Locs = [locsmax;locsmin]; % Corresponding abscissa of Maxima first, 
then Minima, same scale, same order as above. Abscissa expressed in 
terms of approximated scale. 


Mat = [Locs,Peaks]; % Combination of Locs and Peaks 
Mat2 = sortrows(Mat,1); % Mat sorted by Locs (abscissa), Minima and 


Maxima are now mixed but sorted by time growing 

Mat2splitx = Mat2(:,1); %SFirst column of Mat2 (Abscissa) 

Mat2splity = Mat2(:,2); sSecond column of Mat2 (corresponding altitudes 
of the peaks) 


$% Segmentation between critical peaks (ignore insignificant ones) = 
Altitude Difference step 
for i=1l:length (Mat2splitx) -1 


%& 2 sorts of climb: for altitudes smaller than 1500ft above minimum of 
% altitude, difference of altitude should be at 


least 

% A00ft. For rest of altitudes, variation should be 
at 

% least 1000ft. This is made to avoid undetected 
climb 

% during a pattern (the altitude is usually low 
during 

% a pattern), when the variation is at least 1000ft 
for 


ol? 


all altitudes. This is also made to avoid 
detected 


% climb during cruise, when the variation is at 
least 
% A00ft for all altitudes 
if Mat2splity (i+1)-Mat2splity (i) >1000 


Climb(i) = Mat2splity(i); 

Climbplus(it+l) = Mat2splity(i+1); 

Abscissa_Climb(i) = Timestamp_Input (Mat2splitx(i)); 

Abscissa_Climbplus(it+1l) = Timestamp_Input (Mat2splitx (itl) ); 
end 


if Mat2splity(it+1l)-Mat2splity(i)>400 && Mat2splity(i+1)- 
Mat2splity(i)< 1000 && Mat2splity(i+1) <1500+min (Mat2splity) 
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Climb(i) = Mat2splity(i); 
Climbplus(it+1l) = Mat2splity(i+1); 
Abscissa_Climb(i) = Timestamp_Input (Mat2splitx(i)); 
Abscissa_Climbplus(it+1l) = Timestamp_Input (Mat2splitx (itl) ); 
end 
& 4 sorts of cruise: 2 for altitudes larger than 1500ft above minimum 
of 
% altitude. 
% 2 sorts of cruise because I needed to separate 
cruise 
% with positive and negative slope. I had to do so 
% otherwise, with considering both negative and 
% positive slopes, a descent phase (for example) 
could 
% be between two consecutive points while cruise 
would 
% be detected at the same time. Indeed, when the 
points 
are consecutive, the code will consider the first 
and 
% last points as limits of cruise segment, and the 
%& descent, even in the case that the variation of 
% altitude is larger than 1000ft, will also be 
% considered as cruise. With consideration of slope 
for 
% cruise detection, I exclude the risk of overlap. 
% Positive slopes: Cruisel, Negative slopes: 
Cruise2. 
% (See variables like store_Abscissa_Cruisel2 or 
% store_Abscissa_Cruise22) 
% I considered that cruise can be 
& made at 500ft above the ground (Cruise3: positive 
% slope and Cruise4: negative slope). If I consider 
all 
% altitudes for cruise detection, ground phases as 
% standing or taxi phases would be considered as 
% cruise. Between 500ft and 1500 ft AGL, the 
minimum 
& difference is now 400 ft (instead of 1000 ft) to 
deal 
% with the small altitude in patterns arouns 
airfields. 


if Mat2splity(it+1)-Mat2splity(i)<1000 && Mat2splity(i+1)- 
Mat2splity(i)>0O && Mat2splity (i) >1500+min (Mat2splity) 
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Cruisel(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruisel (positive slope) 

Cruiselplus(itl) = Mat2splity(i+l); % Next altitude 

Abscissa_Cruisel(i) = Timestamp_Input (Mat2splitx(i)); 
SCorresponding timestamp in the approximated scale 

Abscissa_Cruiselplus(it1l) = Timestamp_Input (Mat2splitx(i+l)); % 
Corresponding abscissa of next altitude in the approximated scale 

end 


if Mat2splity(it+1l)-Mat2splity(i)>-1000 && Mat2splity(i+1)- 
Mat2splity(i)<0O && Mat2splity(i)>1500+min (Mat2splity) 


Cruise2(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruise2 (negative slope) 
Cruise2plus (itl) = Mat2splity (itl); 
Abscissa_Cruise2(i) = Timestamp_Input (Mat2splitx(i)); 
Abscissa_Cruise2plus (itl) = Timestamp_Input (Mat2splitx(it+l)); 
end 


if (Mat2splity (it+1)-Mat2splity(i)<400 && Mat2splity(i+1)- 
Mat2splity(i)>0O && Mat2splity (i) <1500+min (Mat2splity) && 
Mat2splity(i)>500+min (Mat2splity) ) 


Cruise3_sum = []; 

Abscissa_Cruise3_sum = []; 

Cruise3(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruise2 (negative slope) 

Cruise3plus (itl) = Mat2splity (itl); 

Abscissa_Cruise3(i) = Timestamp_Input (Mat2splitx(i)); 

Abscissa_Cruise3plus (itl) = Timestamp_Input (Mat2splitx(it+l)); 

end 


if (Mat2splity (it+1)-Mat2splity(i)>-400 && Mat2splity(i+1)- 
Mat2splity(i)<0O && Mat2splity(i)<1500+min (Mat2splity) && 
Mat2splity(i)>500+min (Mat2splity) ) 


Cruise4_sum = []; 

Abscissa_Cruise4_sum = []; 

Cruise4(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruise2 (negative slope) 

Cruise4plus (itl) = Mat2splity(it+l); 

Abscissa_Cruise4(i) = Timestamp_Input (Mat2splitx(i)); 

Abscissa_Cruise4plus (itl) = Timestamp_Input (Mat2splitx (itl) ); 

end 


% 2 sorts of descent: for altitudes smaller than 1500ft above minimum 


% altitude, difference of altitude should be at 


least 

% -400ft. For rest of altitudes, variation should 
be at 

% least -1000ft. This is made to avoid undetected 

% descent during a pattern (the altitude is usually 
low 


during a pattern), when the variation is at least 


ol? 
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& -1000ft for all altitudes. This is also made to 
avoid 

% detected descent during cruise, when the 
variation is 

& at least -400ft for all altitudes 

if Mat2splity(i+1)-Mat2splity(i)<-1000 %&& 
Mat2splity (i+1) <1000+min (Mat2splity) 
Descent (i) = Mat2splity(i); 


Descentplus(it+1l) = Mat2splity (itl); 

Abscissa_Descent (i) = Timestamp_Input (Mat2splitx(i)); 

Abscissa_Descentplus (itl) = Timestamp_Input (Mat2splitx(it+l)); 
end 


if Mat2splity (itl) —-Mat2splity(i)<-400 && Mat2splity(i+1)- 
Mat2splity(i)>-1000 && Mat2splity(i)<1500+min (Mat2splity) 


Descent (i) = Mat2splity(i); 

Descentplus(it+1l) = Mat2splity (itl); 

Abscissa_Descent (i) = Timestamp_Input (Mat2splitx(i)); 

Abscissa_Descentplus (itl) = Timestamp_Input (Mat2splitx(it+l)); 
end 


end 
6% Rearrange variables 


& Next line: this is made to get Cruisel and Cruiselplus with the same 
% size, in order to add them together (Cruisel_sum) in order to avoid 
any 

% missing value. Same for the next 7 operations (variables). 

if isempty (Climb) ==0 

Climb = [Climb 0]; 

Abscissa_Climb = [Abscissa_Climb 0]; 

if length (Climb) ~=length (Climbplus) 


Climb (end) []; 
Abscissa_Climb(end) = []; 
end 
end 
if isempty (Cruisel1) ==0 
Cruisel = [Cruisel 0]; 
Abscissa_Cruisel = [Abscissa_Cruisel 0]; 


if length (Cruisel) ~=length(Cruiselplus) 
Cruisel(end) = []; 
Abscissa_Cruisel(end) = []; 

end 

end 


if isempty (Cruise2) == 

Cruise2 = [Cruise2 0]; 

Abscissa_Cruise2 = [Abscissa_Cruise2 0]; 

if length (Cruise2) ~=length (Cruise2plus) 
Cruise2(end) = []; 
Abscissa_Cruise2(end) = []; 
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end 
end 


if isempty (Cruise3) == 

Cruise3 = [Cruise3 0]; 

Abscissa_Cruise3 = [Abscissa_Cruise3 0]; 

if length (Cruise3) ~=length (Cruise3plus) 
Cruise3(end) = []; 
Abscissa_Cruise3(end) = []; 

end 

end 


if isempty (Cruise4) == 

Cruise4 = [Cruise4 0]; 

Abscissa_Cruise4 = [Abscissa_Cruise4 0]; 

if length (Cruise4) ~=length (Cruise4plus) 
Cruise4(end) = []; 
Abscissa_Cruise4(end) = []; 

end 

end 


if isempty (Descent) == 

Descent = [Descent 0]; 

Abscissa_Descent = [Abscissa_Descent 0]; 

if length (Descent) ~=length (Descentplus) 
Descent (end) = []; 
Abscissa_Descent (end) = []; 

end 

end 


if isempty (Climb) == 

Climb (Climb==Climbplus) = 0; 

Climb_sum = Climb + Climbplus; 

Abscissa_Climb (Abscissa_Climb==Abscissa_Climbplus) = 0; 
Abscissa_Climb_sum = Abscissa_Climb + Abscissa_Climbplus; 
end 


if isempty (Cruisel) == 

Cruisel (Cruisel==Cruiselplus) = 0; 

Cruisel_sum = Cruisel + Cruiselplus; 

Abscissa_Cruisel (Abscissa_Cruisel==Abscissa_Cruiselplus) = 0; 
Abscissa_Cruisel_sum = Abscissa_Cruisel + Abscissa_Cruiselplus; 
end 


if isempty (Cruise2) == 

Cruise2 (Cruise2==Cruise2plus) = 0; 

Cruise2_sum = Cruise2 + Cruise2plus; 

Abscissa_Cruise2 (Abscissa_Cruise2==Abscissa_Cruise2plus) = 0; 
Abscissa_Cruise2_sum = Abscissa_Cruise2 + Abscissa_Cruise2plus; 
end 


if isempty (Cruise3) ==0 

Cruise3 (Cruise3==Cruise3plus) = 0; 

Cruise3_sum = Cruise3 + Cruise3plus; 

Abscissa_Cruise3 (Abscissa_Cruise3==Abscissa_Cruise3plus) = 0; 
Abscissa_Cruise3_sum = Abscissa_Cruise3 + Abscissa_Cruise3plus; 
end 


if isempty (Cruise4) ==0 

Cruise4 (Cruise4==Cruise4plus) = 0; 

Cruise4_sum = Cruise4 + Cruise4plus; 

Abscissa_Cruise4 (Abscissa_Cruise4==Abscissa_Cruise4plus) = 0; 
Abscissa_Cruise4_sum = Abscissa_Cruise4 + Abscissa_Cruise4plus; 
end 


if isempty (Descent) ==0 

Descent (Descent==Descentplus) = 0; 

Descent_sum = Descent + Descentplus; 

Abscissa_Descent (Abscissa_Descent==Abscissa_Descentplus) = 0; 
Abscissa_Descent_sum = Abscissa_Descent + Abscissa_Descentplus; 
end 
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% I replace all zeros by NaN 
if isempty (Climb) == 


Climb_sum(Climb_sum==0) = NaN; 
Abscissa_Climb_sum(Abscissa_Climb_sum==0) = NaN; 
end 


if isempty (Cruisel) == 


Cruisel_sum(Cruisel_sum==0) = NaN; 
Abscissa_Cruisel_sum(Abscissa_Cruisel_sum==0) = NaN; 
end 

if isempty (Cruise2) == 

Cruise2_sum(Cruise2_sum==0) = NaN; 
Abscissa_Cruise2_sum(Abscissa_Cruise2_sum==0) = NaN; 
end 

if isempty (Cruise3) ==0 

Cruise3_sum(Cruise3_sum==0) = NaN; 
Abscissa_Cruise3_sum(Abscissa_Cruise3_sum==0) = NaN; 
end 

if isempty (Cruise4) == 

Cruise4_sum(Cruise4_sum==0) = NaN; 
Abscissa_Cruise4_sum(Abscissa_Cruise4_sum==0) = NaN; 
end 

if isempty (Descent) ==0 

Descent_sum(Descent_sum==0) = NaN; 
Abscissa_Descent_sum(Abscissa_Descent_sum==0) = NaN; 


end 


241 


242 


fe) 


% Listing all values by original timestamp (see 
store_Abscissa_Cruisel), 


fo) 


% but with the approximated scale. Column 2 is the order Column 1 
values 


Q 


% occurred. This is made to detect consecutive points later on. Cloumn 
2 Of 


fe) 


% store_Cruisel is the same, but column is the corresponding altitude. 


if isempty (Cruisel1) ==0 
store_Abscissa_Cruisel = []; 
store_Cruisel = []; 
for i = 1:length (Abscissa_Cruisel_sum) -1 
if isnan(Abscissa_Cruisel_sum(i))==0 && 


isnan (Abscissa_Cruisel_sum(i+1) )== 
nxt=[Abscissa_Cruisel_sum(i),i]; 


nxtplus = [Abscissa_Cruisel_sum(it1l),i+1]; 
store_Abscissa_Cruisel = [store_Abscissa_Cruisel;nxt;nxtplus]; 
end 
if isnan(Cruisel_sum(i))==0 && isnan(Cruisel_sum(i+1) )==0 
nxt=[Cruisel_sum(i),i]; 
nxtplus = [Cruisel_sum(i+1),i+1]; 
store_Cruisel = [store_Cruisel;nxt;nxtplus]; 
end 
end 
end 
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% Same for Cruise2 
if isempty (Cruise2) == 


store_Abscissa_Cruise2 = []; 
store _Cruise2 = []; 
for i = 1:length (Abscissa_Cruise2_sum)-1 
if isnan(Abscissa_Cruise2_sum(i))==0 && 
isnan (Abscissa_Cruise2_sum(i+1) )==0 
nxt=[Abscissa_Cruise2_sum(i),i]; 
nxtplus = [Abscissa_Cruise2_sum(itl1),i+1]; 
store_Abscissa_Cruise2 = [store_Abscissa_Cruise2;nxt;nxtplus]; 
end 
if isnan(Cruise2_sum(i))==0 && isnan(Cruise2_sum(i+1) )==0 
nxt=[Cruise2_sum(i),i]; 
nxtplus = [Cruise2_sum(i+1),i+1]; 
store_Cruise2 = [store_Cruise2;nxt;nxtplus]; 
end 


end 


end 


[o) 


% Same for Cruise3 

if isempty (Cruise3) == 
store_Abscissa_Cruise3 = 
store _Cruise3 = []; 

for i= 


Ll 
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1:length (Abscissa_Cruise3_sum) -1 


if isnan(Abscissa_Cruise3_sum(i))==0 && 


isnan (Abscissa_Cruise3_sum(i+1))= 


nxt=[Abscissa_Cruise3_sum(i),i]; 


nxtplus = 
store_Abscissa_Cruise3 = 


end 


[Abscissa_Cruise3_sum(itl),i+1]; 


[store_Abscissa_Cruise3;nxt;nxtplus]; 


if isnan(Cruise3_sum(i))==0 && isnan(Cruise3_sum(i+1) )==0 


nxt=[Cruise3_sum(i),i]; 
nxtplus = 
store_Cruise3 = 


end 
end 
end 
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% Same for Cruise4 

if isempty (Cruise4) ==0 
store_Abscissa_Cruise4 = 
store_Cruise4 = []; 

for i= 


[]; 


[Cruise3_sum(it1l),i+1]; 
[store_Cruise3;nxt;nxtplus]; 


1:length (Abscissa_Cruise4_sum)-1 


if isnan(Abscissa_Cruise4_sum(i))==0 && 


isnan (Abscissa_Cruise4_sum(i+1))= 


nxt=[Abscissa_Cruise4_sum(i),i]; 


nxtplus = 
store_Abscissa_Cruise4 = 


end 


[Abscissa_Cruise4_sum(itl),i+1]; 
[store_Abscissa_Cruise4;nxt;nxtplus]; 


if isnan(Cruise4_sum(i))==0 && isnan(Cruise4_sum(i+1))==0 


nxt=[Cruise4_sum(i),i]; 
nxtplus = 
store_Cruise4 = 


end 
end 


end 


SSame for Descent 

if isempty (Descent) ==0 
store_Abscissa_Descent = 
store_Descent = []; 

for i= 


[]; 


[Cruise4_sum(itl),i+1]; 
[store_Cruise4;nxt;nxtplus]; 


1:length (Abscissa_Descent_sum) -1 
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if isnan(Abscissa_Descent_sum(i))==0 && 
isnan (Abscissa_Descent_sum(i+1) )== 
nxt=[Abscissa_Descent_sum(i),i]; 


nxtplus = [Abscissa_Descent_sum(i+1),it+1]; 
store_Abscissa_Descent = [store_Abscissa_Descent;nxt;nxtplus]; 
end 
if isnan(Descent_sum(i))==0 && isnan(Descent_sum(i+1) )==0 
nxt=[Descent_sum(i),i]; 
nxtplus = [Descent_sum(i+1),i+1]; 
store_Descent = [store_Descent;nxt;nxtplus]; 
end 
end 
end 
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%& Same for Climb 

if isempty (Climb) == 
store_Abscissa_Climb = []; 

store_Climb = []; 

for i = 1:length (Abscissa_Climb_sum) -1 


if isnan(Abscissa_Climb_sum(i))==0 && 
isnan (Abscissa_Climb_sum(i+1) ) == 
nxt=[Abscissa_Climb_sum(i),i]; 


nxtplus = [Abscissa_Climb_sum(i+1),i+1]; 
store_Abscissa_Climb = [store_Abscissa_Climb;nxt;nxtplus]; 
end 
if isnan(Climb_sum(i))==0 && isnan(Climb_sum(i+1) )==0 
nxt=[Climb_sum(i),i]; 
nxtplus = [Climb_sum(i+1),i+1]; 
store_Climb = [store_Climb;nxt;nxtplus]; 
end 
end 
end 


fe) 


% I deleted all repeated rows for store_Abscissa_Cruisel and 
store_Cruisel. 

% I do not want to sort store_Cruisel by altitude, but by order in 
which 

% they occurred (That is why I used sortrows) 

if isempty (Cruisel1) ==0 

store_Abscissa_Cruisel2 = unique(store_Abscissa_Cruisel ,'rows'); 
store_Cruisel2 = unique(store_Cruisel ,'rows'); 

store_Cruisel2 = sortrows (store_Cruisel2,2); 


end 


SSame for Cruise2 
if isempty (Cruise2) ==0 
store_Abscissa_Cruise22 = unique(store_Abscissa_Cruise2 ,'rows'); 
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store_Cruise22 = unique(store_Cruise2 ,'rows'); 
store_Cruise22 = sortrows(store_Cruise22,2); 
end 


SSame for Cruise3 
if isempty (Cruise3) == 


store_Abscissa_Cruise32 = unique(store_Abscissa_Cruise3 ,'rows'); 
store_Cruise32 = unique(store_Cruise3 ,'rows'); 

store_Cruise32 = sortrows (store_Cruise32,2); 

end 

SSame for Cruise4 

if isempty (Cruise4) ==0 

store_Abscissa_Cruise42 = unique(store_Abscissa_Cruise4 ,'rows'); 
store_Cruise42 = unique(store_Cruise4 ,'rows'); 

store_Cruise42 = sortrows (store_Cruise42,2); 

end 


SSame for Descent 


if isempty (Descent) ==0 

store_Abscissa_Descent2 = unique(store_Abscissa_Descent, 'rows'); 
store_Descent2 = unique(store_Descent, 'rows'); 

store_Descent2 = sortrows(store_Descent2,2); 

end 


Same for Climb 
if isempty (Climb) ==0 


store_Abscissa_Climb2 = unique(store_Abscissa_Climb, 'rows'); 
store_Climb2 = unique(store_Climb, 'rows'); 

store_Climb2 = sortrows(store_Climb2,2); 

end 


6% Cruisel 
if isempty (Cruisel) == 


b_cruisel = find(diff([store_Abscissa_Cruisel2(:,2)])==1); 
bl_cruisel = b_cruisel; 
for i = 1:length(b_cruisel)-1 
if b_cruisel (i+1)-b_cruisel (i)==1 && 
store _Cruisel2 (b_cruisel (i+1),1)>=store_Cruisel2 (b_cruisel (i),1) 
bl_cruisel (itl) = 0; 
else continue 
end 
end 
b1l_cruisel (bl_cruisel==0)=[]; 
bl_cruisel = bl_cruisel'; 
BeginningCruisel = store_Abscissa_Cruisel2(bl_cruisel,1); 
BeginningCruisel = BeginningCruisel'; 
BeginningCruisel_Alt = Altitude_Input (BeginningCruisel) ; 
BeginningCruisel_Alt = BeginningCruisel_Alt'; 
for i = 1l:length(store_Abscissa_Cruisel12)-1 


if (store_Abscissa_Cruisel2(i+l1,2) - 
store_Abscissa_Cruisel2(i,2)==1 && 


246 


store_Cruisel2 (i+1,1)<store_Cruisel2(i,1))]|| (store_Abscissa_Cruisel2 (i+ 
1,2) - store_Abscissa_Cruisel2 (i,2) ~=1) 
e_cruisel(i) = store_Abscissa_Cruisel2(i,1); 
end 

end 
if exist ('e_cruisel')==1 

e_cruisel (e_cruisel==0) = []; 
EndCruisel = [e_cruisel store_Abscissa_Cruisel2(end,1)]; 
EndCruisel (EndCruisel==0) = []; 
EndCruisel_Alt = Altitude_Input (EndCruisel); 
else 
EndCruisel = [store_Abscissa_Cruisel2(end,1)]; 
EndCruisel (EndCruisel==0) = []; 
EndCruisel_Alt = Altitude_Input (EndCruisel); 
end 

end 


oe 


& Cruise2 
SSame for Cruise2 (See Cruise 1) 
if isempty (Cruise2) == 


b_cruise2 = find(diff([store_Abscissa_Cruise22(:,2)])==1); 
bl_cruise2 = b_cruise2; 
for i = 1:length(b_cruise2)-1 
if b_cruise2 (i+1)-b_cruise2(i)==1 && 
store _Cruise22 (b_cruise2 (i+1),1)<=store_Cruise22 (b_cruise2(i),1) 
bl_cruise2(i+l) = 0; 
else continue 
end 
end 
b1l_cruise2 (bl_cruise2==0)=[]; 
bl_cruise2 = bl_cruise2'; 
BeginningCruise2 = store_Abscissa_Cruise22(bl_cruise2,1); 
BeginningCruise2 = BeginningCruise2'; 
BeginningCruise2_Alt = Altitude_Input (BeginningCruise2) ; 


BeginningCruise2_Alt = BeginningCruise2_Alt'; 


for i = 1l:length(store_Abscissa_Cruise22) -1 
if (store_Abscissa_Cruise22(i+1,2) - 
store_Abscissa_Cruise22 (i,2)==1 && 
store_Cruise22 (i+1,1)>store_Cruise22(i,1)) || (store_Abscissa_Cruise22 (it 
1,2) - store_Abscissa_Cruise22 (i,2) ~=1) 
e_cruise2(i) = store_Abscissa_Cruise22(i,1); 
end 
end 
if exist ('e cruise2')==1 
e_cruise2 (e_cruise2==0) = []; 
EndCruise2 = [e_cruise2 store_Abscissa_Cruise22(end,1)]; 
EndCruise2 (EndCruise2==0) = []; 
EndCruise2_Alt = Altitude_Input (EndCruise2) ; 
else 
EndCruise2 = [store_Abscissa_Cruise22(end,1)]; 
EndCruise2 (EndCruise2==0) = []; 
EndCruise2_Alt = Altitude_Input (EndCruise2) ; 
end 
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end 
%% Cruise3 


SSame for Cruise3 (See Cruise 1) 
if isempty (Cruise3) == 
b_cruise3 = find(diff([store_Abscissa_Cruise32(:,2)])==1); 
bl_cruise3 = b_cruise3; 
for i = 1:length(b_cruise3)-1 
if b_cruise3 (i+1)-b_cruise3(i)==1 && 
store _Cruise32 (b_cruise3 (i+1),1)>=store_Cruise32 (b_cruise3(i),1) 
bl_cruise3(i+l) = 0; 
else continue 
end 
end 
bl_cruise3 (bl_cruise3==0)=[]; 
bl_cruise3 = bl_cruise3'; 
BeginningCruise3 = store_Abscissa_Cruise32 (bl_cruise3,1); 
BeginningCruise3 = BeginningCruise3'; 
BeginningCruise3_Alt = Altitude_Input (BeginningCruise3) ; 
BeginningCruise3_Alt = BeginningCruise3_Alt'; 


for i = 1l:length(store_Abscissa_Cruise32)-1 
if (store_Abscissa_Cruise32(i+l1,2) - 
store_Abscissa_Cruise32(i,2)==1 && 
store_Cruise32 (i+1,1)<store_Cruise32(i,1)) || (store_Abscissa_Cruise32 (it 
1,2) - store_Abscissa_Cruise32(i,2) ~=1) 
e_cruise3(i) = store_Abscissa_Cruise32(i,1); 
end 
end 
if exist ('e_cruise3')==1 
e_cruise3 (e_cruise3==0) = []; 
EndCruise3 = [e_cruise3 store_Abscissa_Cruise32(end,1)]; 
EndCruise3 (EndCruise3==0) = []; 
EndCruise3_Alt = Altitude_Input (EndCruise3) ; 
else 
EndCruise3 = [store_Abscissa_Cruise32(end,1)]; 
EndCruise3 (EndCruise3==0) = []; 
EndCruise3_Alt = Altitude_Input (EndCruise3) ; 
end 
end 


ol? 


%& Cruise4 

SSame for Cruise4 (See Cruise 1) 

if isempty (Cruise4) == 

b_cruise4 = find(diff([store_Abscissa_Cruise42(:,2)])==1); 
bl_cruise4 = b_cruise4; 

for i = 1:length(b_cruise4) -1 


if b_cruise4 (it+1)-b_cruise4 (i)==1 && 
store _Cruise42 (b_cruise4 (i+1),1)<=store_Cruise42 (b_cruise4 (i),1) 
bl_cruise4(i+l) = 0; 
else continue 
end 


end 
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bl_cruise4 (bl_cruise4==0)=[]; 
bl_cruise4 = bl_cruise4'; 
BeginningCruise4 = store_Abscissa_Cruise42 (bl_cruise4,1); 
BeginningCruise4 = BeginningCruise4'; 
BeginningCruise4_ Alt = Altitude_Input (BeginningCruise4) ; 
BeginningCruise4_Alt = BeginningCruise4 Alt'; 
for i = 1l:length(store_Abscissa_Cruise42) -1 


if (store_Abscissa_Cruise42(it+l1,2) - 
store_Abscissa_Cruise42(i,2)==1 && 


store_Cruise42 (it+1,1)>store_Cruise42(i,1))|| (store_Abscissa_Cruise42 (i+ 
1,2) - store_Abscissa_Cruise42 (i,2) ~=1) 
e_cruise4(i) = store_Abscissa_Cruise42(i,1); 
end 
end 
if exist ('e_cruise4')== 
e_cruise4 (e_cruise4==0) = []; 
EndCruise4 = [e_cruise4 store_Abscissa_Cruise42(end,1)]; 
EndCruise4 (EndCruise4==0) = []; 
EndCruise4_Alt = Altitude_Input (EndCruise4) ; 
else 
EndCruise4 = [store_Abscissa_Cruise42(end,1)]; 
EndCruise4 (EndCruise4==0) = []; 
EndCruise4_Alt = Altitude_Input (EndCruise4) ; 
end 
end 


%% Descent 
if isempty (Descent) == 
b_descent = find(diff([store_Abscissa_Descent2(:,2)])==1); 
bl_descent = b_descent; 
for i = 1:length(b_descent)-1 
if b_descent (i+1)-b_descent (i)==1 && 
store _Descent2 (b_descent (i+1),1)<=store_Descent2 (b_descent (i),1) 
bl_descent (i+1l) = 0; 
else continue 
end 
end 
b1l_descent (b1_descent==0) =[]; 
bl_descent = bl_descent'; 
BeginningDescent = store_Abscissa_Descent2 (bl_descent,1); 
BeginningDescent = BeginningDescent'; 
BeginningDescent_Alt = Altitude_Input (BeginningDescent) ; 
BeginningDescent_Alt = BeginningDescent_Alt'; 


for i = 1l:length(store_Abscissa_Descent2) -1 
if (store_Abscissa_Descent2(i+1,2) - 
store_Abscissa_Descent2(i,2)==1 && 
store_Descent2 (i+1,1)>store_Descent2(i,1)) || (store_Abscissa_Descent2 (i+ 
1,2) - store_Abscissa_Descent2 (i, 2) ~=1) 
e_descent(i) = store_Abscissa_Descent2(i,1); 
end 
end 
if exist ('e_descent')==1 
e_descent (e_descent==0) = []; 
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d 
dDescent (EndDescent==0) = []; 
dDescent_Alt = Altitude_Input (EndDescent) ; 


12] 


el 
ndDescent = [store_Abscissa_Descent2(end,1)]; 
Descent (EndDescent==0) = []; 

ndDescent_Alt = Altitude_Input (EndDescent) ; 


=) 
Q. 


AAA o fw 
0) 


end 
end 
%% Climb 

if isempty (Climb) == 

b_climb = find(diff([store_Abscissa_Climb2(:,2)])==1); 
b1l_climb = b_climb; 

for i = 1:length(b_climb)-1 

if b_climb (it+1)-b_climb(i)==1 && 
store_Climb2 (b_climb (i+1),1)>=store_Climb2 (b_climb(i),1) 


bl_climb(i+l) = 0; 
else continue 
end 
end 
b1_climb (b1_climb==0)=[]; 


bl_climb = bl_climb'; 

BeginningClimb = store_Abscissa_Climb2 (bl_climb,1); 
BeginningClimb = BeginningClimb'; 
BeginningClimb_Alt = Altitude_Input (BeginningClimb) ; 
BeginningClimb_Alt BeginningClimb_Alt'; 


for i = 1l:length(store_Abscissa_Climb2)-1 


Descent = [e_descent store_Abscissa_Descent2(end,1)]; 
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j= 


if (store_Abscissa_Climb2(i+1,2) - store_Abscissa_Climb2 (i, 
&& 
store_Climb2 (i+1,1)<store_Climb2(i,1)) || (store_Abscissa_Climb2 (i+1, 2) - 
store_Abscissa_Climb2 (i, 2) ~=1) 
e_climb(i) = store_Abscissa_Climb2(i,1); 
end 
end 
if exist ('e_climb') == 
e_climb(e_climb==0) = []; 
EndClimb = [e_climb store_Abscissa_Climb2(end,1)]; 
EndClimb (EndClimb==0) = []; 
EndClimb_Alt = Altitude_Input (EndClimb) ; 
else 
EndClimb = [store_Abscissa_Climb2(end,1)]; 
EndClimb (EndClimb==0) = []; 
EndClimb_Alt = Altitude_Input (EndClimb) ; 
end 
end 


if isempty (Climb) == 
Phase_Climb = [BeginningClimb; EndClimb]; 


end 

if isempty (Cruisel) == 

Phase_Cruisel = [BeginningCruisel;EndCruisel]; 
end 


if isempty (Cruise2) ==0 
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Phase_Cruise2 = [BeginningCruise2;EndCruise2]; 
end 

if isempty (Cruise3) ==0 

Phase_Cruise3 = [BeginningCruise3;EndCruise3]; 
end 

if isempty (Cruise4) ==0 

Phase_Cruise4 = [BeginningCruise4;EndCruise4]; 
end 

if isempty (Descent) == 

Phase_Descent = [BeginningDescent; EndDescent]; 
end 

hold on 


if isempty (Climb) == 
TClimb = reshape (Phase_Climb, [],1); 


TClimb = sortrows (TClimb) ; 

end 

if isempty (Cruisel) == 

TCruisel = reshape (Phase_Cruisel,[],1); 
TCruisel = sortrows(TCruisel); 

end 

if isempty (Cruise2) == 

TCruise2 = reshape (Phase_Cruise2,[],1); 
TCruise2 = sortrows (TCruise2); 

end 

if isempty (Cruise3) == 

TCruise3 = reshape (Phase_Cruise3,[],1); 
TCruise3 = sortrows (TCruise3) ; 

end 

if isempty (Cruise4) == 

TCruise4 = reshape (Phase_Cruise4,[],1); 
TCruise4 = sortrows (TCruise4) ; 

end 

if isempty (Descent) == 

TDescent = reshape (Phase_Descent,[],1); 
TDescent = sortrows(TDescent) ; 

end 


if isempty (Climb) == 


XCl = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XCl) 
if any(TClimb==i) %if any value from this vector is equal to 
increment 
XC1(i) = i; 
end 
end 


$==> vector with TClimb values separated by zeros 


for i = 1:length(BeginningClimb) 
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Xcell find (BeginningClimb (i) ==XCl); 
Xcl2 = min(find(XCl>Xcll1)); 
IntclX1X2 = Xcl1+1:Xcl2-1; 
for j=1:length(XC1) 

if any (IntclX1X2==j) 


XC1(j) = J; 
end 

end 

end 

end 


if isempty (Cruisel) == 


XC1 = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XCl) 
if any(TCruisel==i) %if any value from this vector is equal to 
increment 
XC1(i) = i; 
end 
end 


S$==> vector with TCruisel values separated by zeros 


for i = 1:length(BeginningCruisel) 
Xcll = find (BeginningCruisel (i) ==XC1); 
Xc12 = min(find(XC1>Xcl11)); 
IntclX1X2 = Xcl1+1:Xcl2-1; 
for j=1:length (XC1) 
if any (Intcl1X1X2==}) 


XC1(j) = J; 
end 

end 

end 

end 


if isempty (Cruise2) == 


XC2 = zeros (size (Altitude_Input)); Screation of a vector 
for i = 1:length(XC2) 
if any(TCruise2==i) %if any value from this vector is equal to 
increment 
XC2(i) = i; 
end 
end 


$==> vector with TCruise2 values separated by zeros 


for i = 1:length(BeginningCruise2) 
find (BeginningCruise2 (i) ==XC2) ; 
= min(find(XC2>Xc21)); 


x 
Q 
i) 
ran 
ll 


Pa 

Q 

i) 

i) 
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Intc2X1X2 = Xc21+1:Xc22-1; 
for j=1:length (XC2) 
if any (Intc2X1X2==j) 
XC2(j) = JF 
end 
end 
end 


end 


if isempty (Cruise3) ==0 
XC3 = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XC3) 

if any(TCruise3==i) %if any value from this vector is equal to 
increment 

XC3(i) = i; 

end 

end 


S==> vector with TCruise3 values separated by zeros 


for i = 1:length(BeginningCruise3) 
Xc31 = find (BeginningCruise3 (i) ==XC3); 
Xc32 = min(find(XC3>Xc31)); 
Intc3X1X2 = Xc31+1:Xc32-1; 
for j=1:length (XC3) 
if any (Intc3X1X2==}) 
XC3(J) = J 
end 
end 
end 
end 


if isempty (Cruise4) ==0 
XC4 = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XC4) 

if any(TCruise4==i) %if any value from this vector is equal to 
increment 

XC4(i) = i; 

end 

end 


S$==> vector with TCruise4 values separated by zeros 


for i = 1:length(BeginningCruise4) 
Xc41 = find (BeginningCruiseéd (i) ==XC4) ; 
= min(find(XC4>Xc41)); 


x 
Q 
ws 
i) 
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Intc4X1X2 = Xc41+1:Xc42-1; 


for j=1:length(XC4) 


if any (Intc4X1X2==}) 


XC4(j) = 3; 
end 
end 
end 
end 
if isempty (Descent) ==0 
XDe = zeros (size (Altitude_Input) ); 


for i = 1:length(XDe) 
if any (TDescent==i) 
increment 
XDe(i) = i; 
end 
end 


S==> vector with TDescent values separated by zeros 


for i = 1:length(BeginningDescent) 
Xdel = find(BeginningDescent (i) == 


Xde2 = min(find(XDe>Xdel)); 
IntdeX1X2 = Xdel+1:Xde2-1; 


for 


j=1:length (XDe) 
if any (IntdeX1X2==}) 


XDe(j) = J; 


end 
end 
end 
end 


if isempty (Climb) ==0 


XC1(XC1l~=0) = 5; 

end 

if isempty (Cruisel) ==0 
XC1(XC1~=0) = 6; 

end 

if isempty (Cruise2) ==0 
XC2 (XC2~=0) = 6; 

end 

if isempty (Cruise3) ==0 
XC3 (XC3~=0) = 6; 

end 

if isempty (Cruise4) ==0 
XC4 (XC4~=0) = 6; 

end 

if isempty (Descent) ==0 
XDe (XDe~=0) = 7; 

end 

if isempty (Cruisel1) ==0 


XC = XC; 


Screation of a vector 


Sif any value from this vector is equal to 
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end 
if exist ('XC')==1 
for i=1:length (XC) 
if XC1(i)~=0 
XC(i) = XC1 (i) ; 
end 
if XC2(i)~= 
XC(i) = XC2(i); 
end 
if isempty (Cruise3) ==0 
if XC3(i)~=0 
XC(i) = XC3(i) ; 
end 
end 
if isempty (Cruise4) ==0 
if XC4 (i) ~=0 
XC(i) = XC4(i) ; 
end 
end 
end 
end 
Vector = zeros (size(Timestamp_Input) ); 
if exist ('XC1l')==1 
Vector = XCl; 
end 
if exist ('XC')== 
for i=1:length (XC) 
if XC(i)~=0 
Vector(i) = XC(i) H 
end 
if XDe(i)~=0 
Vector(i) = XDe(i); 
end 
end 
end 
nan_values = sum(isnan(Vector) ); 


end 


ie) 


B.13: Matlab function to identify phases of flight using Down-Sampling/Rate of Climb if 


it is the best method found either on traffic patterns or non-traffic patterns (DSRC.m) 


function 
[Vector]=DSRC (Timestamp_Input,Altitude_Input, Increment_Optimization) 


%% Creation of a new scale 

Timestamp_Input = Timestamp_Input - min(Timestamp_Input) +1; 

New_timestamp = 1:Increment_Optimization:numel (Timestamp_Input) ; 

New_BaroA_withoutGoogle = 

Altitude_Input (1: Increment_Optimization:numel (Altitude_Input) ); 
hold on 

Climb = []; 

Climbplus = []; 

Abscissa_Climb = []; 

Abscissa_Climbplus = []; 


Cruisel = []; 

Cruiselplus = []; 
Abscissa_Cruisel = []; 
Abscissa_Cruiselplus = []; 
Cruise2 = []; 

Cruise2plus = []; 
Abscissa_Cruise2 = []; 
Abscissa_Cruise2plus = []; 
Cruise3 = []; 

Cruise3plus = []; 
Abscissa_Cruise3 = []; 
Abscissa_Cruise3plus = []; 
Cruise4 = []; 

Cruise4plus = []; 
Abscissa_Cruise4 = []; 
Abscissa_Cruise4plus = []; 
Descent = []; 

Descentplus = []; 
Abscissa_Descent = []; 
Abscissa_Descentplus = []; 
Cruisel_sum = []; 
Abscissa_Cruisel_sum = []; 
Cruise2_sum = []; 


Abscissa_Cruise2_sum 


ll 
a 
i 
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Climb_sum = []; 
Abscissa_Climb_sum = []; 
Descent_sum = []; 
Abscissa_Descent_sum = []; 


BeginningClimb = []; 
EndClimb = []; 
BeginningCruisel = []; 
EndCruisel = []; 


BeginningCruise2 
EndCruise2 = []; 
BeginningCruise3 
EndCruise3 = []; 
BeginningCruise4 
EndCruise4 = []; 
BeginningDescent 
EndDescent = []; 


Phase_Climb = []; 


Phase_Cruisel = 
Phase_Cruise2 = 
Phase_Cruise3 
Phase_Cruise4 
Phase_Descent 


Success = []; 
Fail = []; 


b_descent = []; 
bl_descent = []; 
e_descent = [] 
b_climb = []; 
bl_climb = []; 


e_climb = []; 
b_cruisel = []; 
bi_cruisel = []; 
e_cruisel = []; 
b_ cruise2 = []; 
bi_cruise2 = []; 
e_cruise2 = []; 
b_cruise3 = []; 
bl_cruise3 = []; 
e_cruise3 = []; 
b_cruise4 = []; 
bl_cruise4 = []; 
e_cruise4 = []; 


[]; 
[]; 
[]; 
[]; 
[]; 
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[]; 
[]; 
[]; 


[]; 


Cruise3_sum = []; 
Abscissa_Cruise3_sum = []; 


Cruise4_sum = []; 


Abscissa_Cruise4_sum 


[]; 


6% Segmentation between critical peaks (ignore insignificant ones) 
for i=1:length (New_timestamp) -1 


& 2 sorts of -clamb: 


for altitudes smaller than 1500ft above minimum of 
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% altitude, difference of altitude should be 


between 

% 167ft and 333ft for a Down-sampling with n = 100. 
For 

%* n = 50, change the numbers from 333 to 167 and 
Ley to 

% 83, to keep a rate of climb of 200 fpm above 1500 
Ee 

% AGL and between 100 and 200 fpm below 1500 ft 
AGL. 


if New_BaroA_withoutGoogle (it1)- 
New_BaroA_withoutGoogle(i)>3.33*Increment_Optimization 


Climb(i) = New_BaroA_withoutGoogle (i); 

Climbplus (itl) = New_BaroA_withoutGoogle (itl); 

Abscissa_Climb(i) = New_timestamp (i); 

Abscissa_Climbplus(it+l) = New_timestamp(i+1); 
end 


if New_BaroA_withoutGoogle (itl) - 
New_BaroA_withoutGoogle(i)>1.67*Increment_Optimization && 
New_BaroA_withoutGoogle (i+1)- 
New_BaroA_withoutGoogle (i) <3.33*Increment_Optimization && 
New_BaroA_withoutGoogle (it+1) <1500+min (New_BaroA_withoutGoogle) 


Climb(i) = New_BaroA_withoutGoogle (i); 

Climbplus(it+1) = New_BaroA_withoutGoogle (itl); 

Abscissa_Climb(i) = New_timestamp (i); 

Abscissa_Climbplus(i+1l) = New_timestamp (itl); 
end 


& 4 sorts of cruise: 2 for altitudes larger than 1500ft above minimum 


% altitude. 

& 2 sorts of cruise because I needed to separate 
cruise 

% with positive and negative slope. I had to do so 

% otherwise, with considering both negative and 

% positive slopes, a descent phase (for example) 
could 

% be between two consecutive points while cruise 
would 

% be detected at the same time. Indeed, when the 
points 

are consecutive, the code will consider the first 

and 

& last points as limits of cruise segment, and the 

% descent will also be 

% considered as cruise. With consideration of slope 
for 

% cruise detection, I exclude the risk of overlap. 

% Positive slopes: Cruisel, Negative slopes: 
Cruise2. 


ol? 


(See variables like store_Abscissa_Cruisel2 or 
store_Abscissa_Cruise22) 

I considered that cruise can be 

made at 500ft above the ground (Cruise3: positive 


AP ol? 


ae 
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slope and Cruise4: negative slope). If I consider 

all 

% altitudes for cruise detection, ground phases as 

% standing or taxi phases would be considered as 

% cruise. Between 500ft and 1500 ft AGL, the 
minimum 

% difference is now 167 ft (instead of 333 ft) to 
deal 

% with the small altitude in patterns arouns 
airfields. 

% To change to n = 50, change to numbers from 333 
to 

% 167 and from 167 to 83 from the same reasons as 
in 


fe) 


% climb section. 

if New_BaroA_withoutGoogle (itl) - 
New_BaroA_withoutGoogle (i) <3.33*Increment_Optimization && 
New_BaroA_withoutGoogle(it+1)-New_BaroA_withoutGoogle(i)>0O && 
New_BaroA_withoutGoogle (i) >1500+min (New_BaroA_withoutGoogle) 


Cruisel(i) = New_BaroA_withoutGoogle(i); % Altitudes of points 
recorded as Cruisel (positive slope) 

Cruiselplus (itl) = New_BaroA_withoutGoogle(i+l); % Next altitude 

Abscissa_Cruisel(i) = New_timestamp(i); %Corresponding timestamp 
in the approximated scale 

Abscissa_Cruiselplus(it+l) = New_timestamp(it+1l); % Corresponding 
abscissa of next altitude in the approximated scale 

end 


if New_BaroA_withoutGoogle (it+1)-New_BaroA_withoutGoogle (i) >- 
3.33*Increment_Optimization && New_BaroA_withoutGoogle(i+1)- 
New_BaroA_withoutGoogle(i)<0O && 
New_BaroA_withoutGoogle (i) >1500+min (New_BaroA_withoutGoogle) 


fe) 


Cruise2(i) = New_BaroA_withoutGoogle(i); % Altitudes of points 
recorded as Cruise2 (negative slope) 
Cruise2plus (itl) = New_BaroA_withoutGoogle(i+1); 
Abscissa_Cruise2(i) = New_timestamp (i); 
Abscissa_Cruise2plus (itl) = New_timestamp(i+1); 
end 


if (New_BaroA_withoutGoogle (it+1)- 
New_BaroA_withoutGoogle(i)<1.67*Increment_Optimization && 
New_BaroA_withoutGoogle(it+1)-New_BaroA_withoutGoogle(i)>0O && 
New_BaroA_withoutGoogle (i) <1500+min (New_BaroA_withoutGoogle) && 
New_BaroA_withoutGoogle (i) >500+min (New_BaroA_withoutGoogle) ) 


i 
i 


Q 


Cruise3(i) = New_BaroA_withoutGoogle(i); % Altitudes of points 
recorded as Cruise2 (negative slope) 

Cruise3plus (itl) = New_BaroA_withoutGoogle(i+1); 

Abscissa_Cruise3(i) = New_timestamp (i); 

Abscissa_Cruise3plus(itl) = New_timestamp (i+1); 
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end 


if (New_BaroA_withoutGoogle (it+1) —-New_BaroA_withoutGoogle (i) >- 
1.67*Increment_Optimization && New_BaroA_withoutGoogle (itl) - 
New_BaroA_withoutGoogle(i)<0O && 
New_BaroA_withoutGoogle (i) <1500+min (New_BaroA_withoutGoogle) && 
New_BaroA_withoutGoogle (i) >500+min (New_BaroA_withoutGoogle) ) 


Cruise4(i) = New_BaroA_withoutGoogle(i); % Altitudes of points 
recorded as Cruise2 (negative slope) 
Cruise4plus (itl) = New_BaroA_withoutGoogle(i+1); 
Abscissa_Cruise4(i) = New_timestamp (i); 
Abscissa_Cruise4plus (itl) = New_timestamp(i+1); 
end 
& 2 sorts of descent: for altitudes smaller than 1500ft above minimum 


%& altitude, difference of altitude should be 


between 

% 167ft and 333ft for a Down-sampling with n = 100. 
For 

% n = 50, change the numbers from 333 to 167 and 
167 to 

% 83, to keep a rate of climb of 200 fpm above 1500 
Ee 

% AGL and between 100 and 200 fpm below 1500 ft 
AGL. 


if New_BaroA_withoutGoogle(it+1)—-New_BaroA_withoutGoogle (i) <- 
3.33*Increment_Optimization 


Descent (i) = New_BaroA_withoutGoogle (i); 

Descentplus (itl) = New_BaroA_withoutGoogle(i+1); 

Abscissa_Descent (i) = New_timestamp (i); 

Abscissa_Descentplus (itl) = New_timestamp (itl); 
end 


if New_BaroA_withoutGoogle (it+1) -New_BaroA_withoutGoogle (i) <- 
1.67*Increment_Optimization && New_BaroA_withoutGoogle(i+1)- 
New_BaroA_withoutGoogle (i) >-3.33*Increment_Optimization && 
New_BaroA_withoutGoogle (it+1) <1500+min (New_BaroA_withoutGoogle) 


Descent (i) = New_BaroA_withoutGoogle (i); 

Descentplus (itl) = New_BaroA_withoutGoogle(i+1); 

Abscissa_Descent (i) = New_timestamp (i); 

Abscissa_Descentplus(it+tl) = New_timestamp (it+1); 
end 


end 
6% Rearrange variables 


% Next line: this is made to get Cruisel and Cruiselplus with the same 


% size, in order to add them together (Cruisel_sum) in order to 
any 
% missing value. Same for the next 7 operations (variables). 
if isempty (Climb) == 
Climb = [Climb 0]; 
Abscissa_Climb = [Abscissa_Climb 0]; 
if length (Climb) ~=length (Climbplus) 
Climb(end) = []; 
Abscissa_Climb(end) = []; 
end 
end 


if isempty (Cruisel) == 

Cruisel = [Cruisel 0]; 

Abscissa_Cruisel = [Abscissa_Cruisel 0]; 

if length (Cruisel) ~=length (Cruiselplus) 
Cruisel(end) = []; 
Abscissa_Cruisel(end) = []; 


end 

end 

if isempty (Cruise2) ==0 

Cruise2 = [Cruise2 0]; 

Abscissa_Cruise2 = [Abscissa_Cruise2 0]; 


if length (Cruise2) ~=length (Cruise2plus) 
Cruise2(end) = []; 
Abscissa_Cruise2(end) = []; 


end 

end 

if isempty (Cruise3) ==0 

Cruise3 = [Cruise3 0]; 

Abscissa_Cruise3 = [Abscissa_Cruise3 0]; 


if length (Cruise3) ~=length (Cruise3plus) 
Cruise3(end) = []; 
Abscissa_Cruise3(end) = []; 

end 

end 


if isempty (Cruise4) == 

Cruise4 = [Cruise4 0]; 

Abscissa_Cruise4 = [Abscissa_Cruise4 0]; 

if length (Cruise4) ~=length (Cruise4plus) 
Cruise4(end) = []; 
Abscissa_Cruise4(end) = []; 

end 

end 


if isempty (Descent) == 

Descent = [Descent 0]; 

Abscissa_Descent = [Abscissa_Descent 0]; 

if length (Descent) ~=length (Descentplus) 
Descent (end) = []; 
Abscissa_Descent (end) = []; 


avoid 
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end 
end 


if isempty (Climb) == 

Climb (Climb==Climbplus) = 0; 

Climb_sum = Climb + Climbplus; 

Abscissa_Climb (Abscissa_Climb==Abscissa_Climbplus) = 0; 
Abscissa_Climb_sum = Abscissa_Climb + Abscissa_Climbplus; 
end 


if isempty (Cruisel) == 

Cruisel (Cruisel==Cruiselplus) = 0; 

Cruisel_sum = Cruisel + Cruiselplus; 

Abscissa_Cruisel (Abscissa_Cruisel==Abscissa_Cruiselplus) = 0; 
Abscissa_Cruisel_sum = Abscissa_Cruisel + Abscissa_Cruiselplus; 
end 

if isempty (Cruise2) ==0 

Cruise2 (Cruise2==Cruise2plus) = 0; 

Cruise2_sum = Cruise2 + Cruise2plus; 

Abscissa_Cruise2 (Abscissa_Cruise2==Abscissa_Cruise2plus) = 0; 
Abscissa_Cruise2_sum = Abscissa_Cruise2 + Abscissa_Cruise2plus; 
end 


if isempty (Cruise3) ==0 

Cruise3 (Cruise3==Cruise3plus) = 0; 

Cruise3_sum = Cruise3 + Cruise3plus; 

Abscissa_Cruise3 (Abscissa_Cruise3==Abscissa_Cruise3plus) = 0; 
Abscissa_Cruise3_sum = Abscissa_Cruise3 + Abscissa_Cruise3plus; 
end 


if isempty (Cruise4) ==0 

Cruise4 (Cruise4==Cruise4plus) = 0; 

Cruise4_sum = Cruise4 + Cruise4plus; 

Abscissa_Cruise4 (Abscissa_Cruise4==Abscissa_Cruise4plus) = 0; 
Abscissa_Cruise4_sum = Abscissa_Cruise4 + Abscissa_Cruise4plus; 
end 


if isempty (Descent) ==0 

Descent (Descent==Descentplus) = 0; 

Descent_sum = Descent + Descentplus; 

Abscissa_Descent (Abscissa_Descent==Abscissa_Descentplus) = 0; 
Abscissa_Descent_sum = Abscissa_Descent + Abscissa_Descentplus; 
end 
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% I replace all zeros by NaN 

if isempty (Climb) == 

Climb_sum(Climb_sum==0) = NaN; 
Abscissa_Climb_sum(Abscissa_Climb_sum==0) = NaN; 
end 
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if isempty (Cruisel1) ==0 

Cruisel_sum(Cruisel_sum==0) = NaN; 
Abscissa_Cruisel_sum(Abscissa_Cruisel_sum==0) = NaN; 
end 

if isempty (Cruise2) ==0 

Cruise2_sum(Cruise2_sum==0) = NaN; 
Abscissa_Cruise2_sum(Abscissa_Cruise2_sum==0) = NaN; 
end 

if isempty (Cruise3) ==0 

Cruise3_sum(Cruise3_sum==0) = NaN; 
Abscissa_Cruise3_sum(Abscissa_Cruise3_sum==0) = NaN; 
end 

if isempty (Cruise4) ==0 

Cruise4_sum(Cruise4_sum==0) = NaN; 
Abscissa_Cruise4_sum(Abscissa_Cruise4_sum==0) = NaN; 
end 

if isempty (Descent) ==0 

Descent_sum(Descent_sum==0) = NaN; 
Abscissa_Descent_sum(Abscissa_Descent_sum==0) = NaN; 
end 
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% Listing all values by original timestamp (see 
store_Abscissa_Cruisel), 

% but with the approximated scale. Column 2 is the order Column 1 
values 

% occurred. This is made to detect consecutive points later on. Column 
2 Of 

% store_Cruisel is the same, but column is the corresponding altitude. 
if isempty (Cruisel) == 

store_Abscissa_Cruisel = []; 

store_Cruisel = []; 


for i = 1:length (Abscissa_Cruisel_sum) -1 


if isnan(Abscissa_Cruisel_sum(i))==0 && 
isnan (Abscissa_Cruisel_sum(i+1) )== 
nxt=[Abscissa_Cruisel_sum(i),i]; 


nxtplus = [Abscissa_Cruisel_sum(it1l),i+1]; 
store_Abscissa_Cruisel = [store_Abscissa_Cruisel;nxt;nxtplus]; 
end 
if isnan(Cruisel_sum(i))==0 && isnan(Cruisel_sum(i+1) )==0 
nxt=[Cruisel_sum(i),i]; 
nxtplus = [Cruisel_sum(i+1),i+1]; 
store_Cruisel = [store_Cruisel;nxt;nxtplus]; 
end 


end 
end 
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% Same for Cruise2 


if isempty (Cruise2) ==0 
store_Abscissa_Cruise2 = []; 
store_Cruise2 = []; 
for i = 1:length (Abscissa_Cruise2_sum)-1 
if isnan(Abscissa_Cruise2_sum(i))==0 && 


isnan (Abscissa_Cruise2_sum(i+1) )== 
nxt=[Abscissa_Cruise2_sum(i),i]; 


nxtplus = [Abscissa_Cruise2_sum(it1),i+1]; 
store_Abscissa_Cruise2 = [store_Abscissa_Cruise2;nxt;nxtplus]; 
end 
if isnan(Cruise2_sum(i))==0 && isnan(Cruise2_sum(i+1) )==0 
nxt=[Cruise2_sum(i),il; 
nxtplus = [Cruise2_sum(i+1),i+1]; 
store_Cruise2 = [store_Cruise2;nxt;nxtplus]; 
end 
end 
end 


if isempty (Cruise3) == 


store_Abscissa_Cruise3 = []; 
store _Cruise3 = []; 
for i = 1:length (Abscissa_Cruise3_sum) -1 
if isnan(Abscissa_Cruise3_sum(i))==0 && 


isnan (Abscissa_Cruise3_sum(i+1) )== 
nxt=[Abscissa_Cruise3_sum(i),i]; 


nxtplus = [Abscissa_Cruise3_sum(itl),i+1]; 
store_Abscissa_Cruise3 = [store_Abscissa_Cruise3;nxt;nxtplus]; 
end 
if isnan(Cruise3_sum(i))==0 && isnan(Cruise3_sum(i+1) )== 
nxt=[Cruise3_sum(i),i]; 
nxtplus = [Cruise3_sum(i+1),i+1]; 
store_Cruise3 = [store_Cruise3;nxt;nxtplus]; 
end 
end 
end 
if isempty (Cruise4) ==0 
store_Abscissa_Cruise4 = []; 
store _Cruise4 = []; 
for i = 1:length (Abscissa_Cruise4_sum)-1 
if isnan(Abscissa_Cruise4_sum(i))==0 && 


isnan (Abscissa_Cruise4_sum(it+1) )== 
nxt=[Abscissa_Cruise4_sum(i),i]; 
nxtplus = [Abscissa_Cruise4_sum(itl1),i+1]; 
store_Abscissa_Cruise4 = [store_Abscissa_Cruise4;nxt;nxtplus]; 
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end 

if isnan(Cruise4_sum(i))==0 && isnan(Cruise4_sum(i+1) )==0 
nxt=[Cruise4_sum(i),i]; 
nxtplus = [Cruise4_sum(i+1),i+1]; 
store_Cruise4 = [store_Cruise4;nxt;nxtplus]; 


end 
end 


end 


SSame for Descent 
if isempty (Descent) == 


store_Abscissa_Descent = []; 
store Descent = []; 
for i = 1:length (Abscissa_Descent_sum) -1 
if isnan(Abscissa_Descent_sum(i))==0 && 


isnan (Abscissa_Descent_sum(i+1) )== 
nxt=[Abscissa_Descent_sum(i),i]; 


nxtplus = [Abscissa_Descent_sum(it1),i+1]; 
store_Abscissa_Descent = [store_Abscissa_Descent;nxt;nxtplus]; 
end 
if isnan(Descent_sum(i))==0 && isnan(Descent_sum(i+1) )==0 
nxt=[Descent_sum(i),i]; 
nxtplus = [Descent_sum(i+1),i+1]; 
store_Descent = [store_Descent;nxt;nxtplus]; 
end 
end 
end 


fe) 


% Same for Climb 

if isempty (Climb) ==0 
store_Abscissa_Climb = []; 

store _Climb = []; 

for i = 1:length (Abscissa_Climb_sum) -1 


if isnan(Abscissa_Climb_sum(i))==0 && 
isnan (Abscissa_Climb_sum(i+1) )== 
nxt=[Abscissa_Climb_sum(i),i]; 


nxtplus = [Abscissa_Climb_sum(i+1),i+1]; 
store_Abscissa_Climb = [store_Abscissa_Climb;nxt;nxtplus]; 
end 
if isnan(Climb_sum(i))==0 && isnan(Climb_sum(itl1) )== 
nxt=[Climb_sum(i),i]; 
nxtplus = [Climb_sum(i+1),it+1]; 


store_Climb = [store_Climb;nxt;nxtplus]; 
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end 
end 
end 


fe) 


% I deleted all repeated rows for store_Abscissa_Cruisel and 
store_Cruisel. 

& I do not want to sort store_Cruisel by altitude, but by order in 
which 

% they occurred (That is why I used sortrows) 

if isempty (Cruisel1) ==0 

store_Abscissa_Cruisel2 = unique(store_Abscissa_Cruisel ,'rows'); 
store_Cruisel2 = unique(store_Cruisel ,'rows'); 

store_Cruisel2 = sortrows(store_Cruisel2,2); 


end 


SSame for Cruise2 

if isempty (Cruise2) ==0 

store_Abscissa_Cruise22 = unique(store_Abscissa_Cruise2 ,'rows'); 
store_Cruise22 = unique(store_Cruise2 ,'rows'); 

store_Cruise22 = sortrows (store_Cruise22,2); 

end 


if isempty (Cruise3) == 


store_Abscissa_Cruise32 = unique(store_Abscissa_Cruise3 ,'rows'); 
store_Cruise32 = unique(store_Cruise3 ,'rows'); 

store_Cruise32 = sortrows (store_Cruise32,2); 

end 

if isempty (Cruise4) ==0 

store_Abscissa_Cruise42 = unique(store_Abscissa_Cruise4 ,'rows'); 
store_Cruise42 = unique(store_Cruise4 ,'rows'); 

store_Cruise42 = sortrows (store_Cruise42,2); 

end 


SSame for Descent 

if isempty (Descent) ==0 

store_Abscissa_Descent2 = unique(store_Abscissa_Descent, 'rows'); 
store_Descent2 = unique(store_Descent, 'rows'); 

store_Descent2 = sortrows(store_Descent2,2); 

end 


Same for Climb 
if isempty (Climb) ==0 


store_Abscissa_Climb2 = unique(store_Abscissa_Climb, 'rows'); 
store_Climb2 = unique(store_Climb, 'rows'); 

store_Climb2 = sortrows(store_Climb2,2); 

end 


6% Cruisel 

if isempty (Cruisel) == 

b_cruisel = find(diff([store_Abscissa_Cruisel2(:,2)])==1); 
bl_cruisel = b_cruisel; 

for i = 1:length(b_cruisel)-1 
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if b_cruisel (i+1)-b_cruisel (i)==1 && 

store_Cruisel2 (b_cruisel (i+1),1)>=store_Cruisel2 (b_cruisel (i),1) 
bl_cruisel(it+l) = 0; 

else continue 

end 
end 
b1l_cruisel (bl_cruisel==0)=[]; 
bl_cruisel = bl_cruisel'; 
BeginningCruisel = store_Abscissa_Cruisel2(bl_cruisel,1); 
BeginningCruisel = BeginningCruisel'; 
BeginningCruisel_Alt = Altitude_Input (BeginningCruisel) ; 
BeginningCruisel_Alt = BeginningCruisel_Alt'; 


for i = 1l:length(store_Abscissa_Cruisel2)-1 
if (store_Abscissa_Cruisel2(i+l1,2) - 
store_Abscissa_Cruisel2(i,2)==1 && 
store_Cruisel2 (i+1,1)<store_Cruisel2(i,1)) || (store_Abscissa_Cruisel2 (it 
1,2) - store_Abscissa_Cruisel2(i,2) ~=1) 
e_cruisel(i) = store_Abscissa_Cruisel2(i,1); 
end 
end 
if exist ('e_cruisel')==1 
e_cruisel (e_cruisel==0) = []; 
EndCruisel = [e_cruisel store_Abscissa_Cruisel2(end,1)]; 
EndCruisel (EndCruisel==0) = []; 
EndCruisel_Alt = Altitude_Input (EndCruisel); 
else 
EndCruisel = [store_Abscissa_Cruisel2(end,1)]; 
EndCruisel (EndCruisel==0) = []; 
EndCruisel_Alt = Altitude_Input (EndCruisel) ; 
end 
end 


[oom) 


6% Cruise2 
if isempty (Cruise2) == 
b_cruise2 = find(diff([store_Abscissa_Cruise22(:,2)])==1); 
bl_cruise2 = b_cruise2; 
for i = 1:length(b_cruise2)-1 

if b_cruise2 (i+1)-b_cruise2(i)==1 && 
store _Cruise22 (b_cruise2 (i+1),1)<=store_Cruise22 (b_cruise2 (i),1) 

bl_cruise2(i+l) = 0; 

else continue 

end 
end 
bl_cruise2 (bl_cruise2==0)=[]; 
bl_cruise2 = bl_cruise2'; 
BeginningCruise2 = store_Abscissa_Cruise22 (bl_cruise2,1); 
BeginningCruise2 = BeginningCruise2'; 
BeginningCruise2_Alt = Altitude_Input (BeginningCruise2) ; 
BeginningCruise2_Alt = BeginningCruise2_Alt'; 


for i = 1l:length(store_Abscissa_Cruise22)-1 
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if (store_Abscissa_Cruise22(i+1,2) - 


store_Abscissa_Cruise22 (i,2)==1 && 
store_Cruise22 (i+1,1)>store_Cruise22(i,1)) || (store_Abscissa_Cruise22 (it 
1,2) - store_Abscissa_Cruise22 (i,2) ~=1) 
e_cruise2(i) = store_Abscissa_Cruise22(i,1); 
end 
end 
if exist ('e_cruise2')== 
e_cruise2 (e_cruise2==0) = []; 
EndCruise2 = [e_cruise2 store_Abscissa_Cruise22(end,1)]; 
EndCruise2 (EndCruise2==0) = []; 
EndCruise2_Alt = Altitude_Input (EndCruise2) ; 
else 
EndCruise2 = [store_Abscissa_Cruise22(end,1)]; 
EndCruise2 (EndCruise2==0) = []; 
EndCruise2_Alt = Altitude_Input (EndCruise2) ; 
end 
end 


%% Cruise3 
if isempty (Cruise3) == 
b_cruise3 = find(diff([store_Abscissa_Cruise32(:,2)])==1); 
bl_cruise3 = b_cruise3; 
for i = 1:length(b_cruise3)-1 
if b_cruise3 (i+1)-b_cruise3(i)==1 && 
store _Cruise32 (b_cruise3 (i+1),1)>=store_Cruise32 (b_cruise3(i),1) 
bl_cruise3(i+l) = 0; 
else continue 
end 
end 
bl_cruise3 (bl_cruise3==0)=[]; 
bl_cruise3 = bl_cruise3'; 
BeginningCruise3 = store_Abscissa_Cruise32 (bl_cruise3,1); 
BeginningCruise3 = BeginningCruise3'; 
BeginningCruise3_Alt = Altitude_Input (BeginningCruise3) ; 
BeginningCruise3_Alt = BeginningCruise3_Alt'; 


for i = 1l:length(store_Abscissa_Cruise32)-1 
if (store_Abscissa_Cruise32(it+l1,2) - 
store_Abscissa_Cruise32 (i, 2) ~=1) || (store_Abscissa_Cruise32 (it+1,2) - 
store_Abscissa_Cruise32(i,2)==1 && 
store_Cruise32 (it1,1)<store_Cruise32(i,1)) 
e_cruise3(i) = store_Abscissa_Cruise32(i,1); 
end 
end 
if exist ('e_cruise3')== 
e_cruise3 (e_cruise3==0) = []; 
EndCruise3 = [e_cruise3 store_Abscissa_Cruise32(end,1)]; 
EndCruise3 (EndCruise3==0) = []; 
EndCruise3_Alt = Altitude_Input (EndCruise3) ; 
else 
EndCruise3 = [store_Abscissa_Cruise32(end,1)]; 
EndCruise3 (EndCruise3==0) = []; 
EndCruise3_Alt = Altitude_Input (EndCruise3) ; 
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end 
end 
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%% Cruise4 

if isempty (Cruise4) == 

b_cruise4 = find(diff([store_Abscissa_Cruise42(:,2)])==1); 

bl_cruise4 = b_cruise4; 

for i = 1:length(b_cruise4) -1 
if b_cruise4 (i+1)-b_cruise4(i)==1 && 

store _Cruise42 (b_cruise4 (i+1),1)<=store_Cruise42 (b_cruise4 (i),1) 

bl_cruise4(i+l) = 0; 

else continue 
end 

end 


b1l_cruise4 (bl_cruise4==0)=[]; 

bl_cruise4 = bl_cruise4'; 

BeginningCruise4 = store_Abscissa_Cruise42 (b1_cruise4,1); 
BeginningCruise4 = BeginningCruise4'; 
BeginningCruise4_Alt = Altitude_Input (BeginningCruise4) ; 
BeginningCruise4_Alt = BeginningCruise4_Alt'; 


for i = 1l:length(store_Abscissa_Cruise42) -1 
if (store_Abscissa_Cruise42(i+l1,2) - 
store_Abscissa_Cruise42 (i,2)==1 && 
store_Cruise42 (i+1,1)>store_Cruise42(i,1)) || (store_Abscissa_Cruise42 (it 
1,2) - store_Abscissa_Cruise42 (i,2) ~=1) 
e_cruise4(i) = store_Abscissa_Cruise42(i,1); 
end 
end 
if exist ('e_cruise4')== 
e_cruise4 (e_cruise4==0) = []; 
EndCruise4 = [e_cruise4 store_Abscissa_Cruise42(end,1)]; 
EndCruise4 (EndCruise4==0) = []; 
EndCruise4_ Alt = Altitude_Input (EndCruise4) ; 
else 
EndCruise4 = [store_Abscissa_Cruise42(end,1)]; 
EndCruise4 (EndCruise4==0) = []; 
EndCruise4_ Alt = Altitude_Input (EndCruise4) ; 
end 
end 


if isempty (Descent) == 

b_descent = find(diff([store_Abscissa_Descent2(:,2)])==1); 

bl_descent = b_descent; 

for i = 1:length(b_descent)-1 
if b_descent (i+1)-b_descent (i)==1 && 

store _Descent2 (b_descent (i+1),1)<=store_Descent2 (b_descent (i),1) 

bl1l_descent(i+l) = 0; 

else continue 
end 

end 


b1_descent (b1_descent==0) =[]; 
bi_descent = bl_descent'; 

BeginningDescent = store_Abscissa_Descent2 (bl_descent,1); 
BeginningDescent = BeginningDescent'; 
BeginningDescent_Alt = Altitude_Input (BeginningDescent) ; 
BeginningDescent_Alt = BeginningDescent_Alt'; 

for i = 1l:length(store_Abscissa_Descent2) -1 

if (store_Abscissa_Descent2(i+1,2) - 


store_Abscissa_Descent2(i,2)==1 && 
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store_Descent2 (it+1,1)>store_Descent2(i,1)) || (store_Abscissa_Descent2 (i+ 
1,2) - store_Abscissa_Descent2 (i, 2) ~=1) 
e_descent (i) = store_Abscissa_Descent2(i,1); 
end 
end 
if exist ('e_descent!')==1 
e_descent (e_descent==0) = []; 
EndDescent = [e_descent store_Abscissa_Descent2(end,1)]; 
EndDescent (EndDescent==0) = []; 
EndDescent_Alt = Altitude_Input (EndDescent) ; 
else 
EndDescent = [store_Abscissa_Descent2(end,1)]; 
EndDescent (EndDescent==0) = []; 
EndDescent_Alt = Altitude_Input (EndDescent) ; 
end 
end 


SSame for Climb (see Cruisel) 
if isempty (Climb) ==0 


b_climb = find(diff([store_Abscissa_Climb2(:,2)])==1); 


bl_climb = b_climb; 
for i = 1:length(b_climb)-1 
if b_climb (it+1)-b_climb(i)==1 && 


store_Climb2 (b_climb(it+1),1)>=store_Climb2 (b_climb(i),1) 


bl_climb(i+1l) = 0; 

else continue 

end 
end 
b1_climb (b1_climb==0)=[]; 
bl_climb = bl_climb'; 
BeginningClimb = store_Abscissa_Climb2 (b1l_climb,1); 
BeginningClimb = BeginningClimb'; 


BeginningClimb_Alt 


BeginningClimb_Alt'; 


for i = 1l:length(store_Abscissa_Climb2)-1 


BeginningClimb_Alt = Altitude_Input (BeginningClimb) ; 


if (store_Abscissa_Climb2(i+1,2) - store_Abscissa_Climb2 (i, 2) ==1 
&& 
store_Climb2 (it+1,1)<store_Climb2(i,1)) || (store_Abscissa_Climb2 (it+1, 2) - 
store_Abscissa_Climb2 (i, 2) ~=1) 
e_climb(i) = store_Abscissa_Climb2(i,1); 
end 


end 
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if exist ('e climb')== 


e_climb (e_climb==0) = []; 
EndClimb = [e_climb store_Abscissa_Climb2(end,1)]; 
EndClimb (EndClimb==0) = []; 
EndClimb_Alt = Altitude_Input (EndClimb) ; 
else 
EndClimb = [store_Abscissa_Climb2 (end,1)]; 
EndClimb (EndClimb==0) = []; 
EndClimb_Alt = Altitude_Input (EndClimb) ; 
end 
end 


if isempty (Climb) == 


Phase_Climb = [BeginningClimb; EndClimb]; 

end 

if isempty (Cruisel) == 

Phase_Cruisel = [BeginningCruisel;EndCruisel]; 
end 

if isempty (Cruise2) ==0 

Phase_Cruise2 = [BeginningCruise2;EndCruise2]; 
end 

if isempty (Cruise3) ==0 

Phase_Cruise3 = [BeginningCruise3;EndCruise3]; 
end 

if isempty (Cruise4) ==0 

Phase_Cruise4 = [BeginningCruise4;EndCruise4]; 
end 

if isempty (Descent) == 

Phase_Descent = [BeginningDescent; EndDescent]; 
end 

hold on 


if isempty (Climb) == 
TClimb = reshape (Phase_Climb, [],1); 
TClimb = sortrows (TClimb) ; 


end 

if isempty (Cruisel) == 

TCruisel = reshape (Phase_Cruisel,[],1); 
TCruisel = sortrows(TCruisel); 

end 

if isempty (Cruise2) == 

TCruise2 = reshape (Phase_Cruise2,[],1); 
TCruise2 = sortrows (TCruise2) ; 

end 

if isempty (Cruise3) == 

TCruise3 = reshape (Phase_Cruise3,[],1); 
TCruise3 = sortrows (TCruise3) ; 

end 

if isempty (Cruise4) == 

TCruise4 = reshape (Phase_Cruise4, [],1); 
TCruise4 = sortrows (TCruise4) ; 


end 
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if isempty (Descent) == 


TDescent = reshape (Phase_Descent,[],1); 
TDescent = sortrows(TDescent) ; 
end 


if isempty (Climb) == 


XCl = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XCl) 
if any(TClimb==i) %if any value from this vector is equal to 
increment 
XC1(i) = i; 
end 
end 


S==> vector with TCruise2 values separated by zeros 


for i = 1:length (BeginningClimb) 
find (BeginningClimb (i) ==XCl); 
Xcl2 = min(find(XCl>Xcll1)); 
IntclX1X2 = Xcl1+1:Xcl2-1; 
for j=1:length (XC1) 
if any (IntclX1X2==}) 
XC1(3) = J; 
end 
end 
end 
end 


x 
Q 
kh 
Kh 
ll 


if isempty (Cruisel) ==0 
XC1l = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XCl) 

if any(TCruisel==i) %if any value from this vector is equal to 
increment 

XC1(i) = i; 

end 

end 


S$==> vector with TCruise2 values separated by zeros 


for i = 1:length(BeginningCruisel) 
Xcll = find (BeginningCruisel (i) ==XC1); 
Xc12 = min(find(XC1>Xcl1l1)); 


IntclX1X2 = Xcl11+1:Xcl2-1; 
for j=1:length (XC1) 
if any (IntclX1X2==}) 
XC1(5) = 3; 
end 
end 
end 
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end 
if isempty (Cruise2) ==0 
XC2 = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XC2) 

if any(TCruise2==i) %if any value from this vector is equal to 
increment 

XC2(i) = i; 

end 

end 


%==> vector with TCruise2 values separated by zeros 


for i = 1:length (BeginningCruise2) 
= find(BeginningCruise2 (i) ==XC2); 
Xc22 = min(find(XC2>Xc21)); 
Intc2X1X2 = Xc21+1:Xc22-1; 
for j=1:length (XC2) 
if any (Intc2X1X2==j) 


Pal 
Q 
I) 
i 
| 


XC2(j) = 3; 
end 

end 

end 

end 


if isempty (Cruise3) == 


XC3 = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XC3) 
if any(TCruise3==i) %if any value from this vector is equal to 
increment 
XC3(i) = i; 
end 
end 


S==> vector with TCruise2 values separated by zeros 


for i = 1:length(BeginningCruise3) 
Xc31 = find(BeginningCruise3 (i) ==XC3) ; 
Xc32 = min(find(XC3>Xc31)); 
Intc3X1X2 = Xc31+1:Xc32-1; 
for j=1:length (XC3) 
if any (Intc3X1X2==}) 
XC3(J) = JF 
end 
end 
end 
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end 
if isempty (Cruise4) ==0 
XC4 = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XC4) 

if any(TCruise4==i) %if any value from this vector is equal to 
increment 

XC4(i) = i; 

end 

end 


S$==> vector with TCruise2 values separated by zeros 


for i = 1:length(BeginningCruise4) 
Xc41 = find (BeginningCruiseé4 (i) ==XC4); 
Xc42 min (find(XC4>Xc41) ); 
Intc4X1X2 = Xc41+1:Xc42-1; 
for j=1:length (XC4) 
if any (Intc4X1X2==}) 
XC4(j) = JF 
end 
end 
end 
end 


if isempty (Descent) ==0 
XDe = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XDe) 

if any(TDescent==i) %if any value from this vector is equal to 
increment 

XDe(i) = i; 

end 

end 


S==> vector with TCruise2 values separated by zeros 


for i = 1:length(BeginningDescent) 
find (BeginningDescent (i) ==XDe) ; 
Xde2 = min(find(XDe>Xdel)); 
IntdeX1X2 = Xdel+1:Xde2-1; 
for j=1:length (XDe) 
if any (IntdeX1X2==j) 
XDe(j) = JF 
end 
end 
end 
end 


x 
Q 
(0) 
bb 
ll 


if isempty (Climb) == 
XC1(XC1~=0) = 5; 
end 


if isempty (Cruisel)= 


XC1 (XC1~=0) = 6; 
end 


if isempty (Cruise2) ==0 


XC2 (XC2~=0) = 6; 
end 


if isempty (Cruise3) ==0 


XC3 (XC3~=0) = 6; 
end 


if isempty (Cruise4) ==0 


XC4 (XC4~=0) = 6; 
end 


if isempty (Descent) == 


XDe(XDe~=0) = 7; 
end 


if isempty (Cruisel1) ==0 


XC = XC1; 
end 


end 

if XC2(i)~= 
XC (i) 

end 


XC1 (i) i 


XC2 (i); 


if isempty (Cruise3) ==0 


if XC3(i)~=0 
XC (i) 

end 

end 


XC3(i) ; 


if isempty (Cruise4) ==0 


if XC4 (i) ~=0 
XC (i) 
end 
end 
end 
end 
Vector = XCl; 
if exist ('XC')== 
for i=1:length (XC) 
if XC(i)~=0 


XC4(i) ; 


Vector(i) = 


end 
if XDe(i)~=0 


Vector (i) 


end 
end 
end 


ll 


nan_values = sum(isnan(Vector) ); 


end 
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B.14: Matlab function to identify phases of flight using Moving Average/Altitude 


Difference if it is the best method found either on traffic patterns or non-traffic patterns 


(MAAD.m) 

function 

[Vector]=MAAD (Timestamp_Input,Altitude_Input, Increment_Optimization) 
Timestamp_Input = Timestamp_Input - min(Timestamp_Input) +1; 


New_BaroA_withoutGoogle = 
smooth (Altitude_Input, Increment_Optimization, 'moving'); 
timestamp = 1:numel(Timestamp_Input); 


%% Detection of Maxima and Minima from the approximated scale 


[pksmax, locsmax] = findpeaks (New_BaroA_withoutGoogle) ; 

BaroInv = 1.01*max (New_BaroA_withoutGoogle) - New_BaroA_withoutGoogle; 

[pksmin, locsmin] = findpeaks (BarolInv) ; 

if New_BaroA_withoutGoogle(1)<New_BaroA_withoutGoogle(2) % made to 

detect first minimum 
pksmin = [pksmin;New_BaroA_withoutGoogle(1)]; 
locsmin = [locsmin;timestamp(1)]; 


end 
if New_BaroA_withoutGoogle (end) <New_BaroA_withoutGoogle(end-1) % made 
to detect last minimum 

pksmin = [pksmin;New_BaroA_withoutGoogle (end) ]; 

locsmin = [locsmin;timestamp (end) ]; 
end 
Baro_Minima = Altitude_Input (locsmin) ; 


SThis part was used in order to test several values of parameter n 
(here 

sp=100 only) 

Peaks = []; 
Locs = []; 
Mat = []; 
Mat2 = []; 
Mat2splitx 
Mat2splity 
Climb = []; 
Climbplus = []; 
Abscissa_Climb = []; 
Abscissa_Climbplus = []; 
Cruisel = []; 

Cruiselplus = []; 
Abscissa_Cruisel = []; 
Abscissa_Cruiselplus = []; 
Cruise2 = []; 

Cruise2plus = []; 
Abscissa_Cruise2 = []; 
Abscissa_Cruise2plus = []; 
Cruise3 = []; 


[]; 
[]; 


ll 
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Cruise3plus = []; 
Abscissa_Cruise3 = []; 
Abscissa_Cruise3plus = []; 
Cruise4 = []; 

Cruise4plus = []; 
Abscissa_Cruise4 = []; 
Abscissa_Cruise4plus = []; 
Descent = []; 

Descentplus = []; 
Abscissa_Descent = []; 
Abscissa_Descentplus = []; 
Cruisel_sum = []; 
Abscissa_Cruisel_sum = []; 
Cruise2_sum = []; 


ll 
— 
a 
. 


Abscissa_Cruise2_sum 


Climb_sum = []; 
Abscissa_Climb_sum = []; 
Descent_sum = []; 

Abscissa_Descent_sum 


ll 
a 
wu 
~ 


BeginningClimb = []; 
EndClimb = []; 
BeginningCruisel 


ll 


[]; 


EndCruisel = []; 
BeginningCruise2 = []; 
EndCruise2 = []; 
BeginningCruise3 = []; 
EndCruise3 = []; 
BeginningCruise4 = []; 
EndCruise4 = []; 
BeginningDescent = []; 
EndDescent = []; 


Phase_Climb = []; 

Phase_Cruisel = []; 
Phase_Cruise2 = []; 
Phase_Cruise3 []; 
Phase_Cruise4 []; 
Phase Descent = []; 


ll 


ll 


Success = []; 
Fail = []; 


b_descent = []; 
bl_descent = []; 
e_descent = [] 
b_climb = []; 
bl_climb = []; 
e_climb = []; 


, 


b_cruisel = []; 


ZiT 


bl_cruisel 


Hl 
= 
wu 
~ 


e_cruisel = []; 
b_cruise2 = []; 
bl_cruise2 = []; 
e_cruise2 = []; 
b_cruise3 = []; 
bl_cruise3 = []; 
e_cruise3 = []; 
b_cruise4 = []; 
bl_cruise4 = []; 
e_cruise4 = []; 
Peaks = [pksmax;Baro_Minima]; % List of altitude for each peak (Maxima 


first, then Minima), time growing (with the approximated scale, for 
Maxima then Minima) 

Locs = [locsmax;locsmin]; % Corresponding abscissa of Maxima first, 
then Minima, same scale, same order as above. Abscissa expressed in 
terms of approximated scale. 


Mat = [Locs,Peaks]; % Combination of Locs and Peaks 
Mat2 = sortrows(Mat,1); % Mat sorted by Locs (abscissa), Minima and 


Maxima are now mixed but sorted by time growing 

Mat2splitx = Mat2(:,1); %SFirst column of Mat2 (Abscissa) 

Mat2splity = Mat2(:,2); sSecond column of Mat2 (corresponding altitudes 
of the peaks) 


6% Segmentation between critical peaks (ignore insignificant ones) = 
Altitude Difference step 
for i=1l:length (Mat2splitx)-1 


% 2 sorts of climb: for altitudes smaller than 1500ft above minimum of 
% altitude, difference of altitude should be at 


least 

% A00ft. For rest of altitudes, variation should be 
at 

& least 1000ft. This is made to avoid undetected 
climb 

& during a pattern (the altitude is usually low 
during 

% a pattern), when the variation is at least 1000ft 
for 

& all altitudes. This is also made to avoid 
detected 

% climb during cruise, when the variation is at 
least 


% 400ft for all altitudes 
if Mat2splity (it+1)-Mat2splity(i)>1000 %&& 
Mat2splity (i+1)>1000+min (Mat2splity) 


Climb(i) = Mat2splity(i); 

Climbplus(it+l) = Mat2splity(i+1); 

Abscissa_Climb(i) = timestamp (Mat2splitx(i)); 
Abscissa_Climbplus(i+1l) = timestamp (Mat2splitx(i+1)); 


end 
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if Mat2splity(it+1l)—-Mat2splity(i)>400 && Mat2splity(i+1)- 
Mat2splity(i)< 1000 && Mat2splity (i+1) <1500+min (Altitude_Input) 


Climb(i) = Mat2splity(i); 

Climbplus(it+1l) = Mat2splity(i+1); 

Abscissa_Climb(i) = timestamp (Mat2splitx(i)); 

Abscissa_Climbplus(i+1l) = timestamp (Mat2splitx(i+1)); 
end 


% 4 sorts of cruise: 2 for altitudes larger than 1500ft above minimum 


% altitude. 

% 2 sorts of cruise because I needed to separate 
cruise 

% with positive and negative slope. I had to do so 

% otherwise, with considering both negative and 

% positive slopes, a descent phase (for example) 
could 

% be between two consecutive points while cruise 
would 

%& be detected at the same time. Indeed, when the 
points 

% are consecutive, the code will consider the first 
and 

% last points as limits of cruise segment, and the 

% descent, even in the case that the variation of 

% altitude is larger than 1000ft, will also be 

% considered as cruise. With consideration of slope 
for 

% cruise detection, I exclude the risk of overlap. 

% Positive slopes: Cruisel, Negative slopes: 
Cruise2. 

% (See variables like store_Abscissa_Cruisel2 or 

% store_Abscissa_Cruise22) 

% I considered that cruise can be 

% made at 500ft above the ground (Cruise3: positive 

% slope and Cruise4: negative slope). If I consider 
all 

% altitudes for cruise detection, ground phases as 

% standing or taxi phases would be considered as 

%& cruise. Between 500ft and 1500 ft AGL, the 
minimum 

% difference is now 400 ft (instead of 1000 ft) to 
deal 

% with the small altitude in patterns arouns 
airfields. 


if (Mat2splity(i+1)-Mat2splity(i)<1000 && Mat2splity (it1)- 
Mat2splity(i)>0O && Mat2splity (i)>1500+min (Altitude_Input) ) 


Cruisel(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruisel (positive slope) 

Cruiselplus(it+1l) = Mat2splity(it+l); % Next altitude 

Abscissa_Cruisel(i) = timestamp (Mat2splitx(i)); sCorresponding 
timestamp in the approximated scale 

Abscissa_Cruiselplus(itl) = timestamp (Mat2splitx(itl)); % 


Corresponding abscissa of next altitude in the approximated scale 
end 
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if (Mat2splity (it+1)-Mat2splity(i)>-1000 && Mat2splity(i+1)- 
Mat2splity(i)<0O && Mat2splity (i)>1500+min (Altitude_Input) ) 


Cruise2(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruise2 (negative slope) 
Cruise2plus (itl) = Mat2splity (itl); 
Abscissa_Cruise2(i) = timestamp (Mat2splitx(i)); 
Abscissa_Cruise2plus(it+l) = timestamp (Mat2splitx(it+l)); 
end 


if (Mat2splity (it+1)-Mat2splity(i)<400 && Mat2splity(i+1)- 
Mat2splity(i)>0O && Mat2splity (i) <1500+min (Altitude_Input) && 
Mat2splity (i) >500+min (Altitude_Input) ) 


Cruise3(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruise2 (negative slope) 
Cruise3plus(it+l) = Mat2splity (itl); 
Abscissa_Cruise3(i) = timestamp (Mat2splitx(i)); 
Abscissa_Cruise3plus (itl) = timestamp (Mat2splitx(it+l)); 
end 


if (Mat2splity(it+1)-Mat2splity(i)>-400 && Mat2splity(i+1)- 
Mat2splity(i)<0O && Mat2splity (i) <1500+min (Altitude_Input) && 
Mat2splity (i) >500+min (Altitude_Input) ) 


Cruise4(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruise2 (negative slope) 
Cruise4plus (itl) = Mat2splity(i+l1l); 
Abscissa_Cruise4(i) = timestamp (Mat2splitx(i)); 
Abscissa_Cruise4plus(itl) = timestamp (Mat2splitx(itl)); 
end 


%& 2 sorts of descent: for altitudes smaller than 1500ft above minimum 


& altitude, difference of altitude should be at 


least 

% -400ft. For rest of altitudes, variation should 
be at 

% least -1000ft. This is made to avoid undetected 

% descent during a pattern (the altitude is usually 
low 

% during a pattern), when the variation is at least 

& -1000ft for all altitudes. This is also made to 
avoid 


ae 


detected descent during cruise, when the 
Variation is 


ae 


at least -400ft for all altitudes 
if Mat2splity(i+1)—-Mat2splity (i) <-1000 


Descent (i) = Mat2splity(i); 

Descentplus (itl) = Mat2splity (itl); 

Abscissa_Descent (i) = timestamp (Mat2splitx(i)); 

Abscissa_Descentplus(i+l) = timestamp (Mat2splitx(i+l1)); 
end 


if Mat2splity (itl) —-Mat2splity(i)<-400 && Mat2splity(i+1)- 
Mat2splity(i)>-1000 && Mat2splity (i) <1500+min (Altitude_Input) 
Descent (i) = Mat2splity(i); 
Descentplus(it+l) = Mat2splity (itl); 
Abscissa_Descent (i) = timestamp (Mat2splitx(i)); 


Abscissa_Descentplus (itl) = timestamp (Mat2splitx(i+l1)); 


end 
end 


if isempty (Climb) == 

Climb = [Climb 0]; 

Abscissa_Climb = [Abscissa_Climb 0]; 

if length (Climb) ~=length(Climbplus) 
Climb(end) = []; 
Abscissa_Climb(end) = []; 

end 

end 


if isempty (Cruisel1) == 

Cruisel = [Cruisel 0]; 

Abscissa_Cruisel = [Abscissa_Cruisel 0]; 

if length (Cruisel) ~=length(Cruiselplus) 
Cruisel(end) = []; 
Abscissa_Cruisel(end) = []; 

end 

end 


if isempty (Cruise2) == 

Cruise2 = [Cruise2 0]; 

Abscissa_Cruise2 = [Abscissa_Cruise2 0]; 

if length (Cruise2) ~=length (Cruise2plus) 
Cruise2(end) = []; 
Abscissa_Cruise2(end) = []; 

end 

end 


if isempty (Cruise3) == 

Cruise3 = [Cruise3 0]; 

Abscissa_Cruise3 = [Abscissa_Cruise3 0]; 

if length (Cruise3) ~=length (Cruise3plus) 
Cruise3(end) = []; 
Abscissa_Cruise3(end) = []; 

end 

end 


if isempty (Cruise4) ==0 

Cruise4 = [Cruise4 0]; 

Abscissa_Cruise4 = [Abscissa_Cruise4 0]; 

if length (Cruise4) ~=length (Cruise4plus) 
Cruise4(end) = []; 
Abscissa_Cruise4(end) = []; 

end 

end 


if isempty (Descent) == 
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Descent = [Descent 0]; 

Abscissa_Descent = [Abscissa_Descent 0]; 

if length (Descent) ~=length (Descentplus) 
Descent (end) = []; 
Abscissa_Descent (end) = []; 

end 

end 


if isempty (Climb) == 

Climb (Climb==Climbplus) = 0; 

Climb_sum = Climb + Climbplus; 

Abscissa_Climb (Abscissa_Climb==Abscissa_Climbplus) = 0; 
Abscissa_Climb_sum = Abscissa_Climb + Abscissa_Climbplus; 
end 


if isempty (Cruisel) == 

Cruisel (Cruisel==Cruiselplus) = 0; 

Cruisel_sum = Cruisel + Cruiselplus; 

Abscissa_Cruisel (Abscissa_Cruisel==Abscissa_Cruiselplus) = 0; 
Abscissa_Cruisel_sum = Abscissa_Cruisel + Abscissa_Cruiselplus; 
end 

if isempty (Cruise2) ==0 

Cruise2 (Cruise2==Cruise2plus) = 0; 

Cruise2_sum = Cruise2 + Cruise2plus; 

Abscissa_Cruise2 (Abscissa_Cruise2==Abscissa_Cruise2plus) = 0; 
Abscissa_Cruise2_sum = Abscissa_Cruise2 + Abscissa_Cruise2plus; 
end 


if isempty (Cruise3) ==0 

Cruise3 (Cruise3==Cruise3plus) = 0; 

Cruise3_sum = Cruise3 + Cruise3plus; 

Abscissa_Cruise3 (Abscissa_Cruise3==Abscissa_Cruise3plus) = 0; 
Abscissa_Cruise3_sum = Abscissa_Cruise3 + Abscissa_Cruise3plus; 
end 

if isempty (Cruise4) == 

Cruise4 (Cruise4==Cruise4plus) = 0; 

Cruise4_sum = Cruise4 + Cruise4plus; 

Abscissa_Cruise4 (Abscissa_Cruise4==Abscissa_Cruise4plus) = 0; 
Abscissa_Cruise4_sum = Abscissa_Cruise4 + Abscissa_Cruise4plus; 
end 


if isempty (Descent) == 

Descent (Descent==Descentplus) = 0; 

Descent_sum = Descent + Descentplus; 

Abscissa_Descent (Abscissa_Descent==Abscissa_Descentplus) = 0; 
Abscissa_Descent_sum = Abscissa_Descent + Abscissa_Descentplus; 
end 


fo) 


% I replace all zeros by NaN 

if isempty (Cruisel1) == 

Cruisel_sum(Cruisel_sum==0) = NaN; 
Abscissa_Cruisel_sum(Abscissa_Cruisel_sum==0) = NaN; 
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end 

if isempty (Cruise2) ==0 

Cruise2_sum(Cruise2_sum==0) = NaN; 
Abscissa_Cruise2_sum(Abscissa_Cruise2_sum==0) = NaN; 
end 

if isempty (Cruise3) ==0 

Cruise3_sum(Cruise3_sum==0) = NaN; 
Abscissa_Cruise3_sum(Abscissa_Cruise3_sum==0) = NaN; 
end 

if isempty (Cruise4) ==0 

Cruise4_sum(Cruise4_sum==0) = NaN; 
Abscissa_Cruise4_sum(Abscissa_Cruise4_sum==0) = NaN; 
end 

if isempty (Descent) ==0 

Descent_sum(Descent_sum==0) = NaN; 
Abscissa_Descent_sum(Abscissa_Descent_sum==0) = NaN; 
end 

if isempty (Climb) ==0 

Climb_sum(Climb_sum==0) = NaN; 
Abscissa_Climb_sum(Abscissa_Climb_sum==0) = NaN; 

end 


fe) 


% Listing all values by original timestamp (see 
store_Abscissa_Cruisel), 

% but with the approximated scale. Column 2 is the order Column 1 
values 

% occurred. This is made to detect consecutive points later on. Cloumn 
2. Of 

% store_Cruisel is the same, but column is the corresponding altitude. 
if isempty (Cruisel) == 

store_Abscissa_Cruisel = []; 

store_Cruisel = []; 


for i = 1:length (Abscissa_Cruisel_sum) -1 


if isnan(Abscissa_Cruisel_sum(i))==0 && 
isnan (Abscissa_Cruisel_sum(i+1) )== 
nxt=[Abscissa_Cruisel_sum(i),i]; 


nxtplus = [Abscissa_Cruisel_sum(it1l),i+1]; 
store_Abscissa_Cruisel = [store_Abscissa_Cruisel;nxt;nxtplus]; 
end 
if isnan(Cruisel_sum(i))==0 && isnan(Cruisel_sum(i+1) )==0 
nxt=[Cruisel_sum(i),i]; 
nxtplus = [Cruisel_sum(it1l),i+1]; 
store_Cruisel = [store_Cruisel;nxt;nxtplus]; 
end 
end 
end 
% Same for Cruise2 
if isempty (Cruise2) ==0 


store_Abscissa_Cruise2 = []; 
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store_Cruise2 = []; 
for i = 1:length (Abscissa_Cruise2_sum)-1 
if isnan(Abscissa_Cruise2_sum(i))==0 && 


isnan (Abscissa_Cruise2_sum(i+1) )== 
nxt=[Abscissa_Cruise2_sum(i),i]; 
nxtplus = [Abscissa_Cruise2_sum(it1l),i+1]; 
store_Abscissa_Cruise2 = [store_Abscissa_Cruise2;nxt;nxtplus]; 


end 
if isnan(Cruise2_sum(i))==0 && isnan(Cruise2_sum(itl1) )==0 
nxt=[Cruise2_sum(i),i]; 


nxtplus = [Cruise2_sum(i+1),i+1]; 
store_Cruise2 = [store_Cruise2;nxt;nxtplus]; 
end 
end 
end 
if isempty (Cruise3) ==0 
store_Abscissa_Cruise3 = []; 
store _Cruise3 = []; 
for i = 1:length (Abscissa_Cruise3_sum) -1 
if isnan(Abscissa_Cruise3_sum(i))==0 && 


isnan (Abscissa_Cruise3_sum(it+1) )== 
nxt=[Abscissa_Cruise3_sum(i),i]; 


nxtplus = [Abscissa_Cruise3_sum(it1),i+1]; 
store_Abscissa_Cruise3 = [store_Abscissa_Cruise3;nxt;nxtplus]; 
end 
if isnan(Cruise3_sum(i))==0 && isnan(Cruise3_sum(i+1) )== 
nxt=[Cruise3_sum(i),i]; 
nxtplus = [Cruise3_sum(i+1),i+1]; 
store_Cruise3 = [store_Cruise3;nxt;nxtplus]; 
end 
end 
end 
if isempty (Cruise4) ==0 
store_Abscissa_Cruise4 = []; 
store _Cruise4 = []; 
for i = 1:length (Abscissa_Cruise4_sum) -1 
if isnan(Abscissa_Cruise4_sum(i))==0 && 


isnan (Abscissa_Cruise4_sum(it+1) )== 
nxt=[Abscissa_Cruise4_sum(i),i]; 


nxtplus = [Abscissa_Cruise4_sum(it1l),i+1]; 
store_Abscissa_Cruise4 = [store_Abscissa_Cruise4;nxt;nxtplus]; 
end 
if isnan(Cruise4_sum(i))==0 && isnan(Cruise4_sum(it+1) )== 


nxt=[Cruise4_sum(i),i]; 
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nxtplus = [Cruise4_sum(itl1),i+1]; 
store_Cruise4 = [store_Cruise4;nxt;nxtplus]; 


end 
end 
end 


SSame for Descent 

if isempty (Descent) ==0 
store_Abscissa_Descent = []; 
store_Descent = []; 

for i = 1:length (Abscissa_Descent_sum) -1 


if isnan(Abscissa_Descent_sum(i))==0 && 
isnan (Abscissa_Descent_sum(i+1) )== 
nxt=[Abscissa_Descent_sum(i),i]; 


nxtplus = [Abscissa_Descent_sum(it1),i+1]; 
store_Abscissa_Descent = [store_Abscissa_Descent;nxt;nxtplus]; 
end 
if isnan(Descent_sum(i))==0 && isnan(Descent_sum(i+1) )==0 
nxt=[Descent_sum(i),i]; 
nxtplus = [Descent_sum(i+1),i+1]; 
store_Descent = [store_Descent;nxt;nxtplus]; 
end 
end 
end 


fe) 


% Same for Climb 

if isempty (Climb) == 
store_Abscissa_Climb = []; 

store _Climb = []; 

for i = 1:length(Abscissa_Climb_sum) -1 


if isnan(Abscissa_Climb_sum(i))==0 && 
isnan (Abscissa_Climb_sum(i+1) ) == 
nxt=[Abscissa_Climb_sum(i),i]; 


nxtplus = [Abscissa_Climb_sum(i+1),i+1]; 
store_Abscissa_Climb = [store_Abscissa_Climb;nxt;nxtplus]; 
end 
if isnan(Climb_sum(i))==0 && isnan(Climb_sum(i+1) )==0 
nxt=[Climb_sum(i),i]; 
nxtplus = [Climb_sum(i+1),i+1]; 
store_Climb = [store_Climb;nxt;nxtplus]; 
end 
end 
end 


fe) 


% I deleted all repeated rows for store_Abscissa_Cruisel and 
store_Cruisel. 


% I do not want to sort store_Cruisel by altitude, but by order in 
which 

% they occurred (That is why I used sortrows) 

if isempty (Cruisel) == 


store_Abscissa_Cruisel2 = unique(store_Abscissa_Cruisel ,'rows'); 
store_Cruisel2 = unique(store_Cruisel ,'rows'); 

store_Cruisel2 = sortrows(store_Cruisel2,2); 

end 


SSame for Cruise2 


if isempty (Cruise2) ==0 

store_Abscissa_Cruise22 = unique(store_Abscissa_Cruise2 ,'rows'); 
store_Cruise22 = unique(store_Cruise2 ,'rows'); 

store_Cruise22 = sortrows (store_Cruise22,2); 

end 


SSame for Cruise3 
if isempty (Cruise3) == 


store_Abscissa_Cruise32 = unique(store_Abscissa_Cruise3 ,'rows'); 
store_Cruise32 = unique(store_Cruise3 ,'rows'); 

store_Cruise32 = sortrows (store_Cruise32,2); 

end 


SSame for Cruise4 


if isempty (Cruise4) ==0 

store_Abscissa_Cruise42 = unique(store_Abscissa_Cruise4 ,'rows'); 
store_Cruise42 = unique(store_Cruise4 ,'rows'); 

store_Cruise42 = sortrows (store_Cruise42,2); 

end 


SSame for Descent 


if isempty (Descent) ==0 

store_Abscissa_Descent2 = unique(store_Abscissa_Descent, 'rows'); 
store_Descent2 = unique(store_Descent, 'rows'); 

store_Descent2 = sortrows(store_Descent2,2); 

end 


sSame for Climb 
if isempty (Climb) ==0 


store_Abscissa_Climb2 = unique(store_Abscissa_Climb, 'rows'); 
store_Climb2 = unique(store_Climb, 'rows'); 

store_Climb2 = sortrows(store_Climb2,2); 

end 


6% Cruisel 
if isempty (Cruisel) == 


b_cruisel = find(diff([store_Abscissa_Cruisel2(:,2)])==1); 
bl_cruisel = b_cruisel; 
for i = 1:length(b_cruisel)-1 

if b_cruisel (i+1)-b_cruisel (i)==1 && 


store _Cruisel2 (b_cruisel (i+1),1)>=store_Cruisel2 (b_cruisel (i),1) 
bl_cruisel(it+l) = 0; 
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else continue 

end 
end 
bl_cruisel (bl_cruisel==0)=[]; 
bl_cruisel = bl_cruisel'; 
BeginningCruisel = store_Abscissa_Cruisel2(bl_cruisel,1); 
BeginningCruisel = BeginningCruisel'; 
BeginningCruisel_Alt = Altitude_Input (BeginningCruisel) ; 
BeginningCruisel_Alt = BeginningCruisel_Alt'; 


for i = 1l:length(store_Abscissa_Cruisel12)-1 
if (store_Abscissa_Cruisel2(i+l1,2) - 
store_Abscissa_Cruisel2(i,2)==1 && 
store_Cruisel2 (i+1,1)<store_Cruisel2(i,1)) || (store_Abscissa_Cruise12 (it 
1,2) - store_Abscissa_Cruisel2(i,2)~=1) 
e_cruisel(i) = store_Abscissa_Cruisel2(i,1); 
end 
end 
if exist ('e_cruisel')== 
e_cruisel (e_cruisel==0) = []; 
EndCruisel = [e_cruisel store_Abscissa_Cruisel2(end,1)]; 
EndCruisel (EndCruisel==0) = []; 
EndCruisel_Alt = Altitude_Input (EndCruisel); 
else 
EndCruisel = [store_Abscissa_Cruisel2(end,1)]; 
EndCruisel (EndCruisel==0) = []; 
EndCruisel_Alt = Altitude_Input (EndCruisel); 
end 
end 


oe 


& Cruise2 
SSame for Cruise2 (See Cruise 1) 
if isempty (Cruise2) == 
b_cruise2 = find(diff([store_Abscissa_Cruise22(:,2)])==1); 
bl_cruise2 = b_cruise2; 
for i = 1:length(b_cruise2)-1 
if b_cruise2 (it+1)-b_cruise2(i)==1 && 
store _Cruise22 (b_cruise2 (i+1),1)<=store_Cruise22 (b_cruise2 (i),1) 
bl_cruise2(i+l) = 0; 
else continue 
end 
end 
bl_cruise2 (bl_cruise2==0)=[]; 
bl_cruise2 = bl_cruise2'; 
BeginningCruise2 = store_Abscissa_Cruise22 (bl_cruise2,1); 
BeginningCruise2 = BeginningCruise2'; 
BeginningCruise2_Alt = Altitude_Input (BeginningCruise2) ; 
BeginningCruise2_Alt = BeginningCruise2_Alt'; 


for i = 1l:length(store_Abscissa_Cruise22) -1 
if (store_Abscissa_Cruise22(i+1,2) - 
store_Abscissa_Cruise22(i,2)==1 && 
store_Cruise22 (i+1,1)>store_Cruise22(i,1))|| (store_Abscissa_Cruise22 (it 
1,2) - store_Abscissa_Cruise22 (i,2) ~=1) 
e_cruise2(i) = store_Abscissa_Cruise22(i,1); 
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end 

end 
if exist ('e_cruise2')==1 

e_cruise2 (e_cruise2==0) = []; 

EndCruise2 = [e_cruise2 store_Abscissa_Cruise22(end,1)]; 

EndCruise2 (EndCruise2==0) = []; 

EndCruise2_Alt = Altitude_Input (EndCruise2) ; 
else 

EndCruise2 = [store_Abscissa_Cruise22(end,1)]; 

EndCruise2 (EndCruise2==0) = []; 

EndCruise2_Alt = Altitude_Input (EndCruise2) ; 
end 
end 


%% Cruise3 


SSame for Cruise3 (See Cruise 1) 
if isempty (Cruise3) == 
b_cruise3 = find(diff([store_Abscissa_Cruise32(:,2)])==1); 
bl_cruise3 = b_cruise3; 
for i = 1:length(b_cruise3)-1 
if b_cruise3 (it+1)-b_cruise3(i)==1 && 
store _Cruise32 (b_cruise3 (it+1),1)>=store_Cruise32 (b_cruise3(i),1) 


bl_cruise3(it+1) = 0; 

else continue 

end 
end 
bl_cruise3 (bl_cruise3==0)=[]; 
bl_cruise3 = bl_cruise3'; 
BeginningCruise3 = store_Abscissa_Cruise32 (bl_cruise3,1)j; 
BeginningCruise3 = BeginningCruise3'; 


BeginningCruise3_Alt = Altitude_Input (BeginningCruise3) ; 
BeginningCruise3_Alt = BeginningCruise3_Alt'; 


for i = 1l:length(store_Abscissa_Cruise32)-1 
if (store_Abscissa_Cruise32(it+l1,2) - 
store_Abscissa_Cruise32(i,2)==1 && 
store_Cruise32 (i+1,1)<store_Cruise32(i,1))|| (store_Abscissa_Cruise32 (i+ 
1,2) - store_Abscissa_Cruise32(i,2) ~=1) 
e_cruise3(i) = store_Abscissa_Cruise32(i,1); 
end 
end 
if exist ('e_cruise3')== 
e_cruise3 (e_cruise3==0) = []; 
EndCruise3 = [e_cruise3 store_Abscissa_Cruise32(end,1)]; 
EndCruise3 (EndCruise3==0) = []; 
EndCruise3_Alt = Altitude_Input (EndCruise3) ; 
else 
EndCruise3 = [store_Abscissa_Cruise32(end,1)]; 
EndCruise3 (EndCruise3==0) = []; 
EndCruise3_Alt = Altitude_Input (EndCruise3) ; 
end 
end 
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%& Cruise4 
SSame for Cruise4 (See Cruise 1) 
if isempty (Cruise4) == 
b_cruise4 = find(diff([store_Abscissa_Cruise42(:,2)])==1); 
bl_cruise4 = b_cruise4; 
for i = 1:length(b_cruise4) -1 
if b_cruise4 (i+1) -b_cruise4 (i)==1 && 
store _Cruise42 (b_cruise4 (i+1),1)<=store_Cruise42 (b_cruise4 (i),1) 
bl_cruise4(i+l) = 0; 
else continue 
end 
end 
b1l_cruise4 (bl_cruise4==0)=[]; 
bl_cruise4 = bl_cruise4'; 
BeginningCruise4 = store_Abscissa_Cruise42 (b1_cruise4,1); 
BeginningCruise4 = BeginningCruise4'; 
BeginningCruise4_Alt = Altitude_Input (BeginningCruise4) ; 
BeginningCruise4_Alt = BeginningCruise4_Alt'; 


for i = 1l:length(store_Abscissa_Cruise42) -1 
if (store_Abscissa_Cruise42(i+l1,2) - 
store_Abscissa_Cruise42(i,2)==1 && 
store_Cruise42 (i+1,1)>store_Cruise42(i,1)) || (store_Abscissa_Cruise42 (it 
1,2) - store_Abscissa_Cruise42(i,2) ~=1) 
e_cruise4(i) = store_Abscissa_Cruise42(i,1); 
end 
end 
if exist ('e_ cruise4')==1 
e_cruise4 (e_cruise4==0) = []; 
EndCruise4 = [e_cruise4 store_Abscissa_Cruise42(end,1)]; 
EndCruise4 (EndCruise4==0) = []; 
EndCruise4_ Alt = Altitude_Input (EndCruise4) ; 
else 
EndCruise4 = [store_Abscissa_Cruise42(end,1)]; 
EndCruise4 (EndCruise4==0) = []; 
EndCruise4_Alt = Altitude_Input (EndCruise4) ; 
end 
end 


$% Descent 
if isempty (Descent) == 
b_descent = find(diff([store_Abscissa_Descent2(:,2)])==1); 
bl_descent = b_descent; 
for i = 1:length(b_descent)-1 
if b_descent (i+1)-b_descent (i)==1 && 
store _Descent2 (b_descent (i+1),1)<=store_Descent2 (b_descent (i),1) 


bl_descent (itl) = 0; 
else continue 
end 
end 
bl_descent (b1_descent==0) =[]; 


bli_descent = bl_descent'; 


BeginningDescent BeginningDescent'; 
BeginningDescent_Alt = Altitude_Input (BeginningDescent) ; 
BeginningDescent_Alt = BeginningDescent_Alt'; 


for i = 1l:length(store_Abscissa_Descent2) -1 
if (store_Abscissa_Descent2(i+1,2) - 
store_Abscissa_Descent2(i,2)==1 && 


BeginningDescent = store_Abscissa_Descent2 (bl_descent,1)j; 
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store_Descent2 (i+1,1)>=store_Descent2(i,1)) || (store_Abscissa_Descent2 (i 


+1,2) - store_Abscissa_Descent2 (i, 2) ~=1) 
e_descent (i) = store_Abscissa_Descent2(i,1); 
end 
end 
if exist ('e_descent')==1 
e_descent (e_descent==0) = []; 


2 
Q. 


ndDescent (EndDescent==0) = []; 
Descent_Alt = Altitude_Input (EndDescent) ; 


3 
Q 


0) 
kh 
0) 


ndDescent = [store_Abscissa_Descent2(end,1)]; 
Descent (EndDescent==0) = []; 
ndDescent_Alt = Altitude_Input (EndDescent) ; 


2 
Q. 


QHuHAwWua htt & 


0) 
| 


%% Climb 
if isempty (Climb) == 
b_climb = find(diff([store_Abscissa_Climb2(:,2)])==1); 
b1l_climb = b_climb; 
for i = 1:length(b_climb)-1 
if b_climb (i+1)-b_climb(i)==1 && 
store_Climb2 (b_climb (i+1),1)>=store_Climb2 (b_climb(i),1) 


bl_climb(i+l) = 0; 
else continue 
end 
end 
b1_climb (b1_climb==0)=[]; 


bl_climb = bl_climb'; 

BeginningClimb = store_Abscissa_Climb2 (bl_climb,1); 
BeginningClimb = BeginningClimb'; 
BeginningClimb_Alt = Altitude_Input (BeginningClimb) ; 
BeginningClimb_Alt = BeginningClimb_Alt'; 


for i = 1:length(store_Abscissa_Climb2)-1 


Descent = [e_descent store_Abscissa_Descent2(end,1)]; 


ol 


if (store_Abscissa_Climb2(i+1,2) - store_Abscissa_Climb2 (i, 
&& 
store_Climb2 (i+1,1)<=store_Climb2(i,1)) || (store_Abscissa_Climb2 (i+1,2) 
- store_Abscissa_Climb2 (i, 2) ~=1) 
e_climb(i) = store_Abscissa_Climb2(i,1); 
end 
end 
if exist ('e climb')== 
e_climb(e_climb==0) = []; 


EndClimb = [e_climb store_Abscissa_Climb2(end,1)]; 
EndClimb (EndClimb==0) = []; 
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EndClimb_Alt = Altitude_Input (EndClimb) ; 
else 

EndClimb = [store_Abscissa_Climb2(end,1)]; 
EndClimb (EndClimb==0) = []; 

EndClimb_Alt = Altitude_Input (EndClimb) ; 
end 

end 


if isempty (Climb) ==0 


Phase_Climb = [BeginningClimb; EndClimb]; 

end 

if isempty (Cruisel1) ==0 

Phase_Cruisel = [BeginningCruisel;EndCruisel]; 
end 

if isempty (Cruise2) == 

Phase_Cruise2 = [BeginningCruise2;EndCruise2]; 
end 

if isempty (Cruise3) == 

Phase_Cruise3 = [BeginningCruise3;EndCruise3]; 
end 

if isempty (Cruise4) == 

Phase_Cruise4 = [BeginningCruise4; EndCruise4]; 
end 

if isempty (Descent) ==0 

Phase_Descent = [BeginningDescent;EndDescent]; 
end 

hold on 


if isempty (Climb) == 
TClimb = reshape (Phase_Climb, [],1); 
TClimb = sortrows (TClimb) ; 


end 

if isempty (Cruisel1) == 

TCruisel = reshape (Phase_Cruisel,[],1); 
TCruisel = sortrows(TCruisel); 

end 

if isempty (Cruise2) == 

TCruise2 = reshape (Phase_Cruise2,[],1); 
TCruise2 = sortrows (TCruise2) ; 

end 

if isempty (Cruise3) ==0 

TCruise3 = reshape (Phase_Cruise3,[],1); 
TCruise3 = sortrows (TCruise3); 

end 

if isempty (Cruise4) == 

TCruise4 = reshape (Phase_Cruise4, [],1); 
TCruise4 = sortrows (TCruise4); 

end 

if isempty (Descent) == 

TDescent = reshape (Phase_Descent,[],1); 
TDescent = sortrows(TDescent) ; 


end 
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if isempty (Climb) == 


XCl = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XCl) 
if any(TClimb==i) %if any value from this vector is equal to 
increment 
XC1(i) = i; 
end 
end 


S==> vector with TClimb values separated by zeros 


for i = 1:length(BeginningClimb) 
Xcll = find (BeginningClimb (i) ==XCl1) ; 
Xcl2 = min(find(XCl1>Xcll1)); 
IntclX1X2 = Xcl1+1:Xcl2-1; 
for j=1:length (XC1) 
if any (IntclX1X2==j) 
XC1(j) = JF 
end 
end 
end 
end 


if isempty (Cruisel1) ==0 
XC1l = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XCl) 

if any(TCruisel==i) %if any value from this vector is equal to 
increment 

XC1(i) = i; 

end 

end 


%$==> vector with TCruisel values separated by zeros 


for i = 1:length(BeginningCruisel) 
Xcll = find (BeginningCruisel (i) ==XC1); 
Xc12 = min(find(XC1>Xcl11)); 
IntclX1X2 = Xcl1+1:Xcl2-1; 
for j=1:length(XC1) 
if any (Intc1lX1X2==j) 


XC1(j) = 3; 
end 
end 
end 
end 
if isempty (Cruise2) ==0 


XC2 = zeros (size (Altitude_Input) ); Screation of a vector 


for i = 1:length(XC2) 


if any(TCruise2==i) %if any value from this vector is equal to 
increment 
XC2(i) = i; 
end 


end 


$==> vector with TCruise2 values separated by zeros 


for i = 1:length (BeginningCruise2) 
Xc21 = find (BeginningCruise2 (i) ==XC2); 
Xc22 = min(find(XC2>Xc21)); 
Intc2X1X2 = Xc21+1:Xc22-1; 
for j=1:length (XC2) 
if any (Intc2X1X2==j) 
XC2(j) = J; 
end 
end 
end 
end 


if isempty (Cruise3) ==0 
XC3 = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XC3) 


if any(TCruise3==i) %if any value from this vector is equal to 


increment 
XC3(i) = i; 
end 
end 


S==> vector with TCruise3 values separated by zeros 


for i = 1:length(BeginningCruise3) 
= find(BeginningCruise3 (i) ==XC3) ; 
Xc32 = min(find(XC3>Xc31)); 
Intc3X1X2 = Xc31+1:Xc32-1; 
for j=1:length (XC3) 
if any (Intc3X1X2==}) 


Pad 
Q 
W 
fain 
| 


XC3(j) = JF 
end 
end 
end 
end 
if isempty (Cruise4) ==0 


XC4 = zeros (size (Altitude_Input) ); Screation of a vector 
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for i = 1:length(XC4) 


if any(TCruise4==i) %if any value from this vector is equal to 
increment 
XC4(i) = i; 
end 


end 


S==> vector with TCruise4 values separated by zeros 


for i = 1:length(BeginningCruise4) 
Xc41 = find (BeginningCruiseé4 (i) ==XC4); 
Xc42 = min(find(XC4>Xc41) ); 
Intc4X1X2 = Xc41+1:Xc42-1; 
for j=1:length (XC4) 
if any (Intc4X1X2==j) 


XC4(j) = 3; 
end 

end 

end 

end 


if isempty (Descent) == 


XDe = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XDe) 
if any(TDescent==i) %if any value from this vector is equal to 
increment 
XDe(i) = i; 
end 
end 


%==> vector with TDescent values separated by zeros 


for i = 1:length(BeginningDescent) 
Xdel = find(BeginningDescent (i) ==XDe) ; 
Xde2 = min(find(XDe>Xdel) ); 
IntdeX1X2 = Xdel+1:Xde2-1; 
for j=1:length (XDe) 
if any (IntdeX1X2==j) 


XDe(j) = J; 
end 

end 

end 

end 


if isempty (Climb) ==0 


XC1(XC1~=0) = 5; 
end 
if isempty (Cruisel1) ==0 


XC1(XC1~=0) = 6; 


end 


if isempty (Cruise2) ==0 
XC2 (XC2~=0) = 6; 


end 


if isempty (Cruise3) ==0 
XC3 (XC3~=0) = 6; 


end 


if isempty (Cruise4) ==0 
XC4 (XC4~=0) = 6; 


end 


if isempty (Descent) == 
XDe (XDe~=0) = 7; 


end 


if isempty (Cruisel1) ==0 
XC = XC1; 


end 


if exist ('XC')= 
for i=1:length ( 


end 
end 
Vector 


=1 


X 
if XC1 (i) 
Cc 


end 
if XC2(i)~= 
XC (i) 


end 


XC1 (i) ; 


XC2 (i); 


if isempty (Cruise3) ==0 


if XC3(i)~=0 


XC(i) = XC3(i) ; 


end 
end 


if isempty (Cruise4) ==0 


if XC4(i)~=0 


XC(i) = XC4(i) ; 


end 
end 


= zeros (size(Timestamp_Input) ); 


if exist ('XCl1')==1 


Vector 
end 


= XCl; 


if exist ('XC')== 
for i=1:length (XC) 


if XC(i)~=0 


Vector(i) = XC(i) 
end 
if exist ('XDe')==1 
if XDe(i)~=0 
Vector(i) = XDe(i); 
end 
end 
end 
end 
nan_values = sum(isnan(Vector) ); 


end 
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B.15: Matlab function to identify phases of flight using Moving Average/Rate of Climb if 


it is the best method found either on traffic patterns or non-traffic patterns (MARC.m) 


function 
[Vector]=MARC (Timestamp_Input,Altitude_Input, Increment_Optimization) 


$% Creation of a new scale 

Timestamp_Input = Timestamp_Input - min(Timestamp_Input) +1; 
New_BaroA_withoutGoogle = 

smooth (Altitude_Input, Increment_Optimization, 'moving'); 
timestamp = 1:numel(Timestamp_Input); 

hold on 


Timestamp_Climb = []; 
Timestamp_Cruise =[]; 
Timestamp_Descent = []; 


Climb = []; 

Climbplus = []; 
Abscissa_Climb = []; 
Abscissa_Climbplus = []; 
Cruisel = []; 

Cruiselplus = []; 
Abscissa_Cruisel = []; 
Abscissa_Cruiselplus = []; 
Cruise2 = []; 

Cruise2plus = []; 
Abscissa_Cruise2 = []; 
Abscissa_Cruise2plus = []; 
Cruise3 = []; 

Cruise3plus = []; 
Abscissa_Cruise3 = []; 
Abscissa_Cruise3plus = []; 
Cruise4 = []; 

Cruise4plus = []; 
Abscissa_Cruise4 = []; 
Abscissa_Cruise4plus = []; 
Descent = []; 

Descentplus = []; 
Abscissa_Descent = []; 
Abscissa_Descentplus = []; 


Cruisel_sum = []; 
Abscissa_Cruisel_sum 
Cruise2_sum = []; 
Abscissa_Cruise2_sum = []; 


ll 
a 
ia 
~ 


Climb_sum = []; 
Abscissa_Climb_sum = []; 
Descent_sum = []; 
Abscissa_Descent_sum = []; 
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BeginningClimb = []; 
EndClimb = []; 
BeginningCruisel 
EndCruisel = []; 
BeginningCruise2 
EndCruise2 = []; 
BeginningCruise3 
EndCruise3 = []; 
BeginningCruise4 = []; 
EndCruise4 = []; 
BeginningDescent = []; 
EndDescent = []; 


ll 
a 
wu 
~ 


ll 
_ 
pails 
. 


ll 
— 
hy 
. 


Phase_Climb = []; 


Phase_Cruisel = []; 
Phase_Cruise2 = []; 
Phase_Cruise3 = []; 
Phase_Cruise4 = []; 
Phase_Descent = []; 
Success = []; 

Fail = []; 


b_descent = []; 
bl_descent = []; 
e_descent = [] 
b_climb = []; 
bl_climb = []; 


e_climb = []; 
b_cruisel = []; 
bl_cruisel = []; 
e_cruisel = []; 
b_cruise2 = []; 
bl_cruise2 = []; 
e_cruise2 = []; 
b_cruise3 = []; 
bl_cruise3 = []; 
e_cruise3 = []; 
b_cruise4 = []; 
bli_cruise4 = []; 
e_cruise4 = []; 
Cruise3_sum = []; 


Abscissa_Cruise3_sum false 


Cruise4_sum = []; 
Abscissa_Cruise4_sum 


ll 


Ll; 
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$% Segmentation between critical peaks (ignore insignificant ones) 
for i=1:length (timestamp) —30 


if (New_BaroA_withoutGoogle (i+29) -New_BaroA_withoutGoogle(i))>100 
Timestamp_Climb (i) =timestamp (i); 
Interval_Climb_timestamp = timestamp(i) : timestamp (i+29); 
Interval_Climb = Timestamp_Input (Interval_Climb_timestamp) ; 

end 


if (New_BaroA_withoutGoogle (i+29) -New_BaroA_withoutGoogle(i))>-100 
&& (New_BaroA_withoutGoogle (i+29) -New_BaroA_withoutGoogle(i))<100 && 
Timestamp_Input (i) >500+min (Timestamp_Input) 
Timestamp_Cruise(i)=timestamp (i); 
Interval_Cruise_timestamp = timestamp(i) : timestamp (i+29); 
Interval_Cruise = Timestamp_Input (Interval_Cruise_timestamp) ; 
end 


if (New_BaroA_withoutGoogle (i+29) -New_BaroA_withoutGoogle(i))<-100 
Timestamp_Descent (i) =timestamp (i); 
Interval_Descent_timestamp = timestamp(i) : timestamp (i+29); 
Interval_Descent = Timestamp_Input (Interval_Descent_timestamp) ; 
end 


end 
XCl = zeros (size (Altitude_Input) ); 
for i = 1:length(XCl) 

if size (Timestamp_Climb) ~=0 


if any (Timestamp_Climb==i) %if any value from this vector is equal 
to increment 
XC1l(i) = i; 
end 
end 


XCr = zeros (size (Altitude_Input) ); 
for i = 1:length(XCr) 


if size (Timestamp_Cruise) ~=0 

if any (Timestamp_Cruise==i) %if any value from this vector is 
equal to increment 

XCr(i) = i; 

end 

end 
end 
XDe = zeros (size (Altitude_Input) ); 


for i = 1:length(XDe) 
if size(Timestamp_Descent) ~=0 


if any (Timestamp_Descent==1i1) 
equal to increment 


Sif any value 


XDe(i) = i; 
end 
end 
end 
XC1(XC1~=0) = 5; 
XCr (XCr~=0) = 6; 
XDe (XDe~=0) = 7; 
Vector = XCl; 


for i=1:length(XC1) 
if XCr(i)~=0 


Vector(i) = XCr(i) ; 
end 
if XDe(i)~=0 

Vector(i) = XDe(i); 
end 


end 


nan_values = sum(isnan(Vector) ); 


end 


from this vector is 
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B.16: Matlab function to identify phases of flight using Local Regression/Altitude 
Difference if it is the best method found either on traffic patterns or non-traffic patterns 


(LRAD.m) 


function 

[Vector]=LRAD (Timestamp_Input,Altitude_Input, Increment_Optimization) 
LR: Local Regression 

& AD: Altitude Difference 

Timestamp_Input = Timestamp_Input - min(Timestamp_Input) +1; 
New_BaroA_withoutGoogle = 

smooth (Altitude_Input, Increment_Optimization, 'loess'); 

timestamp = 1:numel(Timestamp_Input) ; 


ae 


%% Detection of Maxima and Minima from the approximated scale 


[pksmax, locsmax] = findpeaks (New_BaroA_withoutGoogle) ; 
BaroInv = 1.01*max (New_BaroA_withoutGoogle) - New_BaroA_withoutGoogle; 
[pksmin, locsmin] = findpeaks (BarolInv) ; 
if New_BaroA_withoutGoogle(1)<New_BaroA_withoutGoogle(2) % made to 
detect first minimum 
pksmin = [pksmin;New_BaroA_withoutGoogle(1)]; 
locsmin = [locsmin;timestamp (1) ]; 
end 
if New_BaroA_withoutGoogle (end) <New_BaroA_withoutGoogle(end-1) % made 
to detect last minimum 
pksmin = [pksmin;New_BaroA_withoutGoogle (end) ]; 
locsmin = [locsmin; timestamp (end) ]; 
end 
Baro_Minima = Altitude_Input (locsmin) ; 


Peaks = []; 

Locs = []; 

Mat = []; 

Mat2 = []; 

Mat2splitx = []; 
Mat2splity []; 

Climb = []; 

Climbplus = []; 
Abscissa_Climb = []; 
Abscissa_Climbplus = []; 
Cruisel = []; 

Cruiselplus = []; 
Abscissa_Cruisel = []; 
Abscissa_Cruiselplus = []; 
Cruise2 = []; 

Cruise2plus = []; 
Abscissa_Cruise2 = []; 
Abscissa_Cruise2plus = []; 
Cruise3 = []; 

Cruise3plus = []; 
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Abscissa_Cruise3 = []; 
Abscissa_Cruise3plus = []; 
Cruise4 = []; 

Cruise4plus = []; 
Abscissa_Cruise4 = []; 
Abscissa_Cruise4plus = []; 
Descent = []; 

Descentplus = []; 
Abscissa_Descent = []; 
Abscissa_Descentplus = []; 
Cruisel_sum = []; 
Abscissa_Cruisel_sum = []; 
Cruise2_sum = []; 


ll 
— 
ia 
~ 


Abscissa_Cruise2_sum 


Climb_sum = []; 
Abscissa_Climb_sum = []; 
Descent_sum = []; 
Abscissa_Descent_sum = []; 


BeginningClimb = []; 
EndClimb = []; 
BeginningCruisel 


ll 
a 
es 
. 


EndCruisel = []; 
BeginningCruise2 = []; 
EndCruise2 = []; 
BeginningCruise3 = []; 
EndCruise3 = []; 
BeginningCruise4 = []; 
EndCruise4 = []; 
BeginningDescent = []; 
EndDescent = []; 


Phase Climb = []; 

Phase_Cruisel = []; 
Phase_Cruise2 = []; 
Phase_Cruise3 []; 
Phase_Cruise4 lee 


ll 


ll 


Phase_Descent = []; 
Success = []; 

Fail = []; 
SPercentage_errors = []; 


b_descent = [] 
bl_descent = [ 
e_descent = [] 
b_climb = []; 
bl_climb = []; 
e_climb = []; 


b_cruisel = []; 
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bl_cruisel 


Hl 
= 
wu 
~ 


e_cruisel = []; 
b_cruise2 = []; 
bl_cruise2 = []; 
e_cruise2 = []; 
b_cruise3 = []; 
bl_cruise3 = []; 
e_cruise3 = []; 
b_cruise4 = []; 
bl_cruise4 = []; 
e_cruise4 = []; 
Peaks = [pksmax;Baro_Minima]; % List of altitude for each peak (Maxima 


first, then Minima), time growing (with the approximated scale, for 
Maxima then Minima) 

Locs = [locsmax;locsmin]; % Corresponding abscissa of Maxima first, 
then Minima, same scale, same order as above. Abscissa expressed in 
terms of approximated scale. 


Mat = [Locs,Peaks]; % Combination of Locs and Peaks 
Mat2 = sortrows(Mat,1); % Mat sorted by Locs (abscissa), Minima and 


Maxima are now mixed but sorted by time growing 

Mat2splitx = Mat2(:,1); %SFirst column of Mat2 (Abscissa) 

Mat2splity = Mat2(:,2); sSecond column of Mat2 (corresponding altitudes 
of the peaks) 


$% Segmentation between critical peaks (ignore insignificant ones) = 
Altitude Difference step 
for i=1l:length (Mat2splitx)-1 


% 2 sorts of climb: for altitudes smaller than 1500ft above minimum of 
% altitude, difference of altitude should be at 


least 

% A00ft. For rest of altitudes, variation should be 
at 

& least 1000ft. This is made to avoid undetected 
climb 

& during a pattern (the altitude is usually low 
during 

% a pattern), when the variation is at least 1000ft 
for 

& all altitudes. This is also made to avoid 
detected 

% climb during cruise, when the variation is at 
least 


% A00ft for all altitudes 
if Mat2splity (i+1)-Mat2splity (i) >1000 


Climb(i) = Mat2splity(i); 

Climbplus(it+1l) = Mat2splity(i+1); 

Abscissa_Climb(i) = timestamp (Mat2splitx(i)); 
Abscissa_Climbplus(i+1l) = timestamp (Mat2splitx(i+1)); 


end 
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if Mat2splity(it+1l)—-Mat2splity(i)>400 && Mat2splity(i+1)- 
Mat2splity(i)< 1000 && Mat2splity (i+1) <1500+min (Altitude_Input) 


Climb(i) = Mat2splity(i); 

Climbplus(it+1l) = Mat2splity(i+1); 

Abscissa_Climb(i) = timestamp (Mat2splitx(i)); 

Abscissa_Climbplus(i+1l) = timestamp (Mat2splitx(i+1)); 
end 


& 4 sorts of cruise: 2 for altitudes larger than 1500ft above minimum 


% altitude. 

% 2 sorts of cruise because I needed to separate 
cruise 

% with positive and negative slope. I had to do so 

% otherwise, with considering both negative and 

% positive slopes, a descent phase (for example) 
could 

% be between two consecutive points while cruise 
would 

& be detected at the same time. Indeed, when the 
points 

% are consecutive, the code will consider the first 
and 

% last points as limits of cruise segment, and the 

% descent, even in the case that the variation of 

% altitude is larger than 1000ft, will also be 

% considered as cruise. With consideration of slope 
for 

% cruise detection, I exclude the risk of overlap. 

% Positive slopes: Cruisel, Negative slopes: 
Cruise2. 

% (See variables like store_Abscissa_Cruisel2 or 

% store_Abscissa_Cruise22) 

% I considered that cruise can be 

% made at 500ft above the ground (Cruise3: positive 

% slope and Cruise4: negative slope). If I consider 
all 

% altitudes for cruise detection, ground phases as 

% standing or taxi phases would be considered as 

%& cruise. Between 500ft and 1500 ft AGL, the 
minimum 

% difference is now 400 ft (instead of 1000 ft) to 
deal 

% with the small altitude in patterns arouns 
airfields. 


if (Mat2splity(i+1)-Mat2splity(i)<1000 && Mat2splity (it1)- 
Mat2splity(i)>0O && Mat2splity (i) >1500+min (Altitude_Input) ) 


Cruisel(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruisel (positive slope) 

Cruiselplus(it+1) = Mat2splity(it+l); % Next altitude 

Abscissa_Cruisel(i) = timestamp (Mat2splitx(i)); sCorresponding 
timestamp in the approximated scale 

Abscissa_Cruiselplus(itl) = timestamp (Mat2splitx(itl)); % 


Corresponding abscissa of next altitude in the approximated scale 
end 
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if (Mat2splity(it+1)-Mat2splity(i)>-1000 && Mat2splity(i+1)- 
Mat2splity(i)<0O && Mat2splity (i) >1500+min (Altitude_Input) ) 


Cruise2(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruise2 (negative slope) 
Cruise2plus (itl) = Mat2splity (itl); 
Abscissa_Cruise2(i) = timestamp (Mat2splitx(i)); 
Abscissa_Cruise2plus(itl) = timestamp (Mat2splitx(itl)); 
end 


if (Mat2splity (it+1)-Mat2splity(i)<400 && Mat2splity(i+1)- 
Mat2splity(i)>0O && Mat2splity (i) <1500+min (Altitude_Input) && 
Mat2splity (i) >500+min (Altitude_Input) ) 


Cruise3(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruise2 (negative slope) 
Cruise3plus (itl) = Mat2splity (itl); 
Abscissa_Cruise3(i) = timestamp (Mat2splitx(i)); 
Abscissa_Cruise3plus (itl) = timestamp (Mat2splitx(it+l)); 
end 


if (Mat2splity(it+1)-Mat2splity(i)>-400 && Mat2splity(i+1)- 
Mat2splity(i)<0O && Mat2splity (i) <1500+min (Altitude_Input) && 
Mat2splity (i) >500+min (Altitude_Input) ) 


Cruise4(i) = Mat2splity(i); % Altitudes of points recorded as 
Cruise2 (negative slope) 
Cruise4plus(it+1l) = Mat2splity (itl); 
Abscissa_Cruise4(i) = timestamp (Mat2splitx(i)); 
Abscissa_Cruise4plus(it1l) = timestamp (Mat2splitx(itl)); 
end 


%& 2 sorts of descent: for altitudes smaller than 1500ft above minimum 


% altitude, difference of altitude should be at 


least 

% -400ft. For rest of altitudes, variation should 
be at 

% least -1000ft. This is made to avoid undetected 

% descent during a pattern (the altitude is usually 
low 

% during a pattern), when the variation is at least 

& -1000ft for all altitudes. This is also made to 
avoid 


ae 


detected descent during cruise, when the 
Variation is 


ae 


at least -400ft for all altitudes 
if Mat2splity(i+1)—-Mat2splity (i) <-1000 


Descent (i) = Mat2splity(i); 

Descentplus (itl) = Mat2splity (itl); 

Abscissa_Descent (i) = timestamp (Mat2splitx(i)); 

Abscissa_Descentplus (itl) = timestamp (Mat2splitx(i+l)); 
end 


if Mat2splity(it+1l)-Mat2splity(i)<-400 && Mat2splity(i+1)- 
Mat2splity(i)>-1000 && Mat2splity (i) <1500+min (Altitude_Input) 
Descent (i) = Mat2splity(i); 
Descentplus(it+l) = Mat2splity (itl); 
Abscissa_Descent (i) = timestamp (Mat2splitx(i)); 


Abscissa_Descentplus (itl) = timestamp (Mat2splitx(i+l1)); 


end 
end 


if isempty (Climb) == 

Climb = [Climb 0]; 

Abscissa_Climb = [Abscissa_Climb 0]; 

if length (Climb) ~=length(Climbplus) 
Climb(end) = []; 
Abscissa_Climb(end) = []; 

end 

end 


if isempty (Cruisel1) == 

Cruisel = [Cruisel 0]; 

Abscissa_Cruisel = [Abscissa_Cruisel 0]; 

if length (Cruisel) ~=length(Cruiselplus) 
Cruisel(end) = []; 
Abscissa_Cruisel(end) = []; 

end 

end 


if isempty (Cruise2) == 

Cruise2 = [Cruise2 0]; 

Abscissa_Cruise2 = [Abscissa_Cruise2 0]; 

if length (Cruise2) ~=length (Cruise2plus) 
Cruise2(end) = []; 
Abscissa_Cruise2(end) = []; 

end 

end 


if isempty (Cruise3) == 

Cruise3 = [Cruise3 0]; 

Abscissa_Cruise3 = [Abscissa_Cruise3 0]; 

if length (Cruise3) ~=length (Cruise3plus) 
Cruise3(end) = []; 
Abscissa_Cruise3(end) = []; 

end 

end 


if isempty (Cruise4) ==0 

Cruise4 = [Cruise4 0]; 

Abscissa_Cruise4 = [Abscissa_Cruise4 0]; 

if length (Cruise4) ~=length (Cruise4plus) 
Cruise4(end) = []; 
Abscissa_Cruise4(end) = []; 

end 

end 


if isempty (Descent) == 
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Descent = [Descent 0]; 

Abscissa_Descent = [Abscissa_Descent 0]; 

if length (Descent) ~=length (Descentplus) 
Descent (end) = []; 
Abscissa_Descent (end) = []; 

end 

end 


if isempty (Climb) == 

Climb (Climb==Climbplus) = 0; 

Climb_sum = Climb + Climbplus; 

Abscissa_Climb (Abscissa_Climb==Abscissa_Climbplus) = 0; 
Abscissa_Climb_sum = Abscissa_Climb + Abscissa_Climbplus; 
end 


if isempty (Cruisel) == 

Cruisel (Cruisel==Cruiselplus) = 0; 

Cruisel_sum = Cruisel + Cruiselplus; 

Abscissa_Cruisel (Abscissa_Cruisel==Abscissa_Cruiselplus) = 0; 
Abscissa_Cruisel_sum = Abscissa_Cruisel + Abscissa_Cruiselplus; 
end 

if isempty (Cruise2) ==0 

Cruise2 (Cruise2==Cruise2plus) = 0; 

Cruise2_sum = Cruise2 + Cruise2plus; 

Abscissa_Cruise2 (Abscissa_Cruise2==Abscissa_Cruise2plus) = 0; 
Abscissa_Cruise2_sum = Abscissa_Cruise2 + Abscissa_Cruise2plus; 
end 


if isempty (Cruise3) ==0 

Cruise3 (Cruise3==Cruise3plus) = 0; 

Cruise3_sum = Cruise3 + Cruise3plus; 

Abscissa_Cruise3 (Abscissa_Cruise3==Abscissa_Cruise3plus) = 0; 
Abscissa_Cruise3_sum = Abscissa_Cruise3 + Abscissa_Cruise3plus; 
end 

if isempty (Cruise4) == 

Cruise4 (Cruise4==Cruise4plus) = 0; 

Cruise4_sum = Cruise4 + Cruise4plus; 

Abscissa_Cruise4 (Abscissa_Cruise4==Abscissa_Cruise4plus) = 0; 
Abscissa_Cruise4_sum = Abscissa_Cruise4 + Abscissa_Cruise4plus; 
end 


if isempty (Descent) == 

Descent (Descent==Descentplus) = 0; 

Descent_sum = Descent + Descentplus; 

Abscissa_Descent (Abscissa_Descent==Abscissa_Descentplus) = 0; 
Abscissa_Descent_sum = Abscissa_Descent + Abscissa_Descentplus; 
end 


fo) 


% I replace all zeros by NaN 

if isempty (Cruisel1) == 

Cruisel_sum(Cruisel_sum==0) = NaN; 
Abscissa_Cruisel_sum(Abscissa_Cruisel_sum==0) = NaN; 
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end 

if isempty (Cruise2) ==0 

Cruise2_sum(Cruise2_sum==0) = NaN; 
Abscissa_Cruise2_sum(Abscissa_Cruise2_sum==0) = NaN; 
end 

if isempty (Cruise3) ==0 

Cruise3_sum(Cruise3_sum==0) = NaN; 
Abscissa_Cruise3_sum(Abscissa_Cruise3_sum==0) = NaN; 
end 

if isempty (Cruise4) ==0 

Cruise4_sum(Cruise4_sum==0) = NaN; 
Abscissa_Cruise4_sum(Abscissa_Cruise4_sum==0) = NaN; 
end 

if isempty (Descent) ==0 

Descent_sum(Descent_sum==0) = NaN; 
Abscissa_Descent_sum(Abscissa_Descent_sum==0) = NaN; 
end 

if isempty (Climb) ==0 

Climb_sum(Climb_sum==0) = NaN; 
Abscissa_Climb_sum(Abscissa_Climb_sum==0) = NaN; 

end 


fe) 


% Listing all values by original timestamp (see 
store_Abscissa_Cruisel), 

% but with the approximated scale. Column 2 is the order Column 1 
values 

% occurred. This is made to detect consecutive points later on. Cloumn 
2. Of 

% store_Cruisel is the same, but column is the corresponding altitude. 
if isempty (Cruisel) == 

store_Abscissa_Cruisel = []; 

store_Cruisel = []; 


for i = 1:length (Abscissa_Cruisel_sum) -1 


if isnan(Abscissa_Cruisel_sum(i))==0 && 
isnan (Abscissa_Cruisel_sum(i+1) )== 
nxt=[Abscissa_Cruisel_sum(i),i]; 


nxtplus = [Abscissa_Cruisel_sum(it1l),i+1]; 
store_Abscissa_Cruisel = [store_Abscissa_Cruisel;nxt;nxtplus]; 
end 
if isnan(Cruisel_sum(i))==0 && isnan(Cruisel_sum(i+1) )==0 
nxt=[Cruisel_sum(i),il; 
nxtplus = [Cruisel_sum(i+1),i+1]; 
store_Cruisel = [store_Cruisel;nxt;nxtplus]; 
end 
end 
end 
% Same for Cruise2 
if isempty (Cruise2) ==0 


store_Abscissa_Cruise2 = []; 
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store_Cruise2 = []; 
for i = 1:length (Abscissa_Cruise2_sum)-1 
if isnan(Abscissa_Cruise2_sum(i))==0 && 


isnan (Abscissa_Cruise2_sum(i+1) )== 
nxt=[Abscissa_Cruise2_sum(i),i]; 
nxtplus = [Abscissa_Cruise2_sum(it1),i+1]; 
store_Abscissa_Cruise2 = [store_Abscissa_Cruise2;nxt;nxtplus]; 


end 
if isnan(Cruise2_sum(i))==0 && isnan(Cruise2_sum(i+1))==0 
nxt=[Cruise2_sum(i),i]; 


nxtplus = [Cruise2_sum(i+1),i+1]; 
store_Cruise2 = [store_Cruise2;nxt;nxtplus]; 
end 
end 
end 
if isempty (Cruise3) ==0 
store_Abscissa_Cruise3 = []; 
store _Cruise3 = []; 
for i = 1:length (Abscissa_Cruise3_sum) -1 
if isnan(Abscissa_Cruise3_sum(i))==0 && 


isnan (Abscissa_Cruise3_sum(it+1) )== 
nxt=[Abscissa_Cruise3_sum(i),i]; 


nxtplus = [Abscissa_Cruise3_sum(it1),i+1]; 
store_Abscissa_Cruise3 = [store_Abscissa_Cruise3;nxt;nxtplus]; 
end 
if isnan(Cruise3_sum(i))==0 && isnan(Cruise3_sum(i+1) )== 
nxt=[Cruise3_sum(i),i]; 
nxtplus = [Cruise3_sum(i+1),i+1]; 
store_Cruise3 = [store_Cruise3;nxt;nxtplus]; 
end 
end 
end 
if isempty (Cruise4) ==0 
store_Abscissa_Cruise4 = []; 
store _Cruise4 = []; 
for i = 1:length (Abscissa_Cruise4_sum) -1 
if isnan(Abscissa_Cruise4_sum(i))==0 && 


isnan (Abscissa_Cruise4_sum(i+1) )== 
nxt=[Abscissa_Cruise4_sum(i),i]; 


nxtplus = [Abscissa_Cruise4_sum(itl),i+1]; 
store_Abscissa_Cruise4 = [store_Abscissa_Cruise4;nxt;nxtplus]; 
end 
if isnan(Cruise4_sum(i))==0 && isnan(Cruise4_sum(it+1) )== 


nxt=[Cruise4_sum(i),i]; 
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nxtplus = [Cruise4_sum(i+1),i+1]; 
store_Cruise4 = [store_Cruise4;nxt;nxtplus]; 


end 
end 
end 


SSame for Descent 

if isempty (Descent) ==0 
store_Abscissa_Descent = []; 
store_Descent = []; 

for i = 1:length (Abscissa_Descent_sum) -1 


if isnan(Abscissa_Descent_sum(i))==0 && 
isnan (Abscissa_Descent_sum(i+1) )== 
nxt=[Abscissa_Descent_sum(i),i]; 


nxtplus = [Abscissa_Descent_sum(it1),i+1]; 
store_Abscissa_Descent = [store_Abscissa_Descent;nxt;nxtplus]; 
end 
if isnan(Descent_sum(i))==0 && isnan(Descent_sum(i+1) )==0 
nxt=[Descent_sum(i),i]; 
nxtplus = [Descent_sum(i+1),i+1]; 
store_Descent = [store_Descent;nxt;nxtplus]; 
end 
end 
end 


fe) 


% Same for Climb 

if isempty (Climb) == 
store_Abscissa_Climb = []; 

store _Climb = []; 

for i = 1:length(Abscissa_Climb_sum) -1 


if isnan(Abscissa_Climb_sum(i))==0 && 
isnan (Abscissa_Climb_sum(i+1) )== 
nxt=[Abscissa_Climb_sum(i),i]; 


nxtplus = [Abscissa_Climb_sum(i+1),i+1]; 
store_Abscissa_Climb = [store_Abscissa_Climb;nxt;nxtplus]; 
end 
if isnan(Climb_sum(i))==0 && isnan(Climb_sum(i+1) )==0 
nxt=[Climb_sum(i),i]; 
nxtplus = [Climb_sum(i+1),i+1]; 
store_Climb = [store_Climb;nxt;nxtplus]; 
end 
end 
end 
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% I deleted all repeated rows for store_Abscissa_Cruisel and 
store_Cruisel. 


% I do not want to sort store_Cruisel by altitude, but by order in 
which 

% they occurred (That is why I used sortrows) 

if isempty (Cruisel) == 


store_Abscissa_Cruisel2 = unique(store_Abscissa_Cruisel ,'rows'); 
store_Cruisel2 = unique(store_Cruisel ,'rows'); 

store_Cruisel2 = sortrows(store_Cruisel2,2); 

end 


SSame for Cruise2 


if isempty (Cruise2) ==0 

store_Abscissa_Cruise22 = unique(store_Abscissa_Cruise2 ,'rows'); 
store_Cruise22 = unique(store_Cruise2 ,'rows'); 

store_Cruise22 = sortrows (store_Cruise22,2); 

end 


SSame for Cruise3 
if isempty (Cruise3) == 


store_Abscissa_Cruise32 = unique(store_Abscissa_Cruise3 ,'rows'); 
store_Cruise32 = unique(store_Cruise3 ,'rows'); 

store_Cruise32 = sortrows (store_Cruise32,2); 

end 


SSame for Cruise4 


if isempty (Cruise4) ==0 

store_Abscissa_Cruise42 = unique(store_Abscissa_Cruise4 ,'rows'); 
store_Cruise42 = unique(store_Cruise4 ,'rows'); 

store_Cruise42 = sortrows (store_Cruise42,2); 

end 


SSame for Descent 


if isempty (Descent) ==0 

store_Abscissa_Descent2 = unique(store_Abscissa_Descent, 'rows'); 
store_Descent2 = unique(store_Descent, 'rows'); 

store_Descent2 = sortrows(store_Descent2,2); 

end 


SSame for Climb 
if isempty (Climb) ==0 


store_Abscissa_Climb2 = unique(store_Abscissa_Climb, 'rows'); 
store_Climb2 = unique(store_Climb, 'rows'); 

store_Climb2 = sortrows(store_Climb2,2); 

end 


6% Cruisel 
if isempty (Cruisel) == 


b_cruisel = find(diff([store_Abscissa_Cruisel2(:,2)])==1); 
bl_cruisel = b_cruisel; 
for i = 1:length(b_cruisel)-1 

if b_cruisel (i+1)-b_cruisel (i)==1 && 


store _Cruisel2 (b_cruisel (i+1),1)>=store_Cruisel2 (b_cruisel (i),1) 
bl_cruisel(it+l) = 0; 
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else continue 

end 
end 
b1l_cruisel (bl_cruisel==0)=[]; 
bl_cruisel = bl_cruisel'; 
BeginningCruisel = store_Abscissa_Cruisel2(bl_cruisel,1); 
BeginningCruisel = BeginningCruisel'; 
BeginningCruisel_Alt = Altitude_Input (BeginningCruisel) ; 
BeginningCruisel_Alt = BeginningCruisel_Alt'; 


for i = 1l:length(store_Abscissa_Cruisel12)-1 
if (store_Abscissa_Cruisel2(i+l1,2) - 
store_Abscissa_Cruisel2(i,2)==1 && 
store_Cruisel2 (i+1,1)<store_Cruisel2(i,1)) || (store_Abscissa_Cruise12 (i+ 
1,2) - store_Abscissa_Cruisel2(i,2)~=1) 
e_cruisel(i) = store_Abscissa_Cruisel2(i,1); 
end 
end 
if exist ('e_cruisel')== 
e_cruisel (e_cruisel==0) = []; 
EndCruisel = [e_cruisel store_Abscissa_Cruisel2(end,1)]; 
EndCruisel (EndCruisel==0) = []; 
EndCruisel_Alt = Altitude_Input (EndCruisel); 
else 
EndCruisel = [store_Abscissa_Cruisel2(end,1)]; 
EndCruisel (EndCruisel==0) = []; 
EndCruisel_Alt = Altitude_Input (EndCruisel); 
end 
end 


oe 


& Cruise2 
SSame for Cruise2 (See Cruise 1) 
if isempty (Cruise2) == 
b_cruise2 = find(diff([store_Abscissa_Cruise22(:,2)])==1); 
bl_cruise2 = b_cruise2; 
for i = 1:length(b_cruise2)-1 
if b_cruise2 (it+1)-b_cruise2(i)==1 && 
store _Cruise22 (b_cruise2 (i+1),1)<=store_Cruise22 (b_cruise2 (i),1) 
bl_cruise2(i+l) = 0; 
else continue 
end 
end 
bl_cruise2 (bl_cruise2==0)=[]; 
bl_cruise2 = bl_cruise2'; 
BeginningCruise2 = store_Abscissa_Cruise22 (bl_cruise2,1)j; 
BeginningCruise2 = BeginningCruise2'; 
BeginningCruise2_Alt = Altitude_Input (BeginningCruise2) ; 
BeginningCruise2_Alt = BeginningCruise2_Alt'; 


for i = 1l:length(store_Abscissa_Cruise22) -1 
if (store_Abscissa_Cruise22(i+1,2) - 
store_Abscissa_Cruise22(i,2)==1 && 
store_Cruise22 (i+1,1)>store_Cruise22(i,1))|| (store_Abscissa_Cruise22 (it 
1,2) - store_Abscissa_Cruise22 (i,2) ~=1) 
e_cruise2(i) = store_Abscissa_Cruise22(i,1); 
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end 

end 
if exist ('e _cruise2')==1 

e_cruise2 (e_cruise2==0) = []; 

EndCruise2 = [e_cruise2 store_Abscissa_Cruise22(end,1)]; 

EndCruise2 (EndCruise2==0) = []; 

EndCruise2_Alt = Altitude_Input (EndCruise2) ; 
else 

EndCruise2 = [store_Abscissa_Cruise22(end,1)]; 

EndCruise2 (EndCruise2==0) = []; 

EndCruise2_Alt = Altitude_Input (EndCruise2) ; 
end 
end 


%% Cruise3 


SSame for Cruise3 (See Cruise 1) 
if isempty (Cruise3) == 
b_cruise3 = find(diff([store_Abscissa_Cruise32(:,2)])==1); 
bl_cruise3 = b_cruise3; 
for i = 1:length(b_cruise3)-1 
if b_cruise3 (it+1)-b_cruise3(i)==1 && 
store _Cruise32 (b_cruise3 (i+1),1)>=store_Cruise32 (b_cruise3(i),1) 


bl_cruise3(it+1) = 0; 

else continue 

end 
end 
bl_cruise3 (bl_cruise3==0)=[]; 
bl_cruise3 = bl_cruise3'; 
BeginningCruise3 = store_Abscissa_Cruise32 (bl_cruise3,1)j; 
BeginningCruise3 = BeginningCruise3'; 


BeginningCruise3_Alt = Altitude_Input (BeginningCruise3) ; 
BeginningCruise3_Alt = BeginningCruise3_Alt'; 


for i = 1l:length(store_Abscissa_Cruise32)-1 
if (store_Abscissa_Cruise32(it+l1,2) - 
store_Abscissa_Cruise32(i,2)==1 && 
store_Cruise32 (i+1,1)<store_Cruise32(i,1))|| (store_Abscissa_Cruise32 (i+ 
1,2) - store_Abscissa_Cruise32(i,2) ~=1) 
e_cruise3(i) = store_Abscissa_Cruise32(i,1); 
end 
end 
if exist ('e_cruise3')== 
e_cruise3 (e_cruise3==0) = []; 
EndCruise3 = [e_cruise3 store_Abscissa_Cruise32(end,1)]; 
EndCruise3 (EndCruise3==0) = []; 
EndCruise3_Alt = Altitude_Input (EndCruise3) ; 
else 
EndCruise3 = [store_Abscissa_Cruise32(end,1)]; 
EndCruise3 (EndCruise3==0) = []; 
EndCruise3_Alt = Altitude_Input (EndCruise3) ; 
end 
end 
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%& Cruise4 
SSame for Cruise4 (See Cruise 1) 
if isempty (Cruise4) == 
b_cruise4 = find(diff([store_Abscissa_Cruise42(:,2)])==1); 
bl_cruise4 = b_cruise4; 
for i = 1:length(b_cruise4) -1 
if b_cruise4 (i+1) -b_cruise4 (i)==1 && 
store _Cruise42 (b_cruise4 (i+1),1)<=store_Cruise42 (b_cruise4 (i),1) 
bl_cruise4(i+l) = 0; 
else continue 
end 
end 
b1l_cruise4 (bl_cruise4==0)=[]; 
bl_cruise4 = bl_cruise4'; 
BeginningCruise4 = store_Abscissa_Cruise42 (bl_cruise4,1); 
BeginningCruise4 = BeginningCruise4'; 
BeginningCruise4_ Alt = Altitude_Input (BeginningCruise4) ; 
BeginningCruise4_Alt = BeginningCruise4_Alt'; 


for i = 1l:length(store_Abscissa_Cruise42)-1 
if (store_Abscissa_Cruise42(i+l1,2) - 
store_Abscissa_Cruise42(i,2)==1 && 
store_Cruise42 (i+1,1)>store_Cruise42(i,1)) || (store_Abscissa_Cruise42 (it 
1,2) - store_Abscissa_Cruise42(i,2) ~=1) 
e_cruise4(i) = store_Abscissa_Cruise42(i,1); 
end 
end 
if exist ('e_ cruise4')==1 
e_cruise4 (e_cruise4==0) = []; 
EndCruise4 = [e_cruise4 store_Abscissa_Cruise42(end,1)]; 
EndCruise4 (EndCruise4==0) = []; 
EndCruise4_ Alt = Altitude_Input (EndCruise4) ; 
else 
EndCruise4 = [store_Abscissa_Cruise42(end,1)]; 
EndCruise4 (EndCruise4==0) = []; 
EndCruise4_Alt = Altitude_Input (EndCruise4) ; 
end 
end 


$% Descent 
if isempty (Descent) == 
b_descent = find(diff([store_Abscissa_Descent2(:,2)])==1); 
bl_descent = b_descent; 
for i = 1:length(b_descent)-1 
if b_descent (i+1)-b_descent (i)==1 && 
store _Descent2 (b_descent (i+1),1)<=store_Descent2 (b_descent (i),1) 


bl1_descent (itl) = 0; 
else continue 
end 
end 
bl_descent (b1_descent==0) =[]; 


bli_descent = bl_descent'; 


BeginningDescent BeginningDescent'; 
BeginningDescent_Alt = Altitude_Input (BeginningDescent) ; 
BeginningDescent_Alt = BeginningDescent_Alt'; 


for i = 1l:length(store_Abscissa_Descent2) -1 
if (store_Abscissa_Descent2(i+1,2) - 
store_Abscissa_Descent2(i,2)==1 && 


BeginningDescent = store_Abscissa_Descent2 (bl_descent,1)j; 
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store_Descent2 (i+1,1)>=store_Descent2(i,1)) || (store_Abscissa_Descent2 (i 


+1,2) - store_Abscissa_Descent2 (i, 2) ~=1) 
e_descent (i) = store_Abscissa_Descent2(i,1); 
end 
end 
if exist ('e_descent')==1 
e_descent (e_descent==0) = []; 


2 
Q. 


ndDescent (EndDescent==0) = []; 
Descent_Alt = Altitude_Input (EndDescent) ; 


3 
Q 


0) 
kh 
0) 


ndDescent = [store_Abscissa_Descent2(end,1)]; 
Descent (EndDescent==0) = []; 
ndDescent_Alt = Altitude_Input (EndDescent) ; 


2 
Q. 


QHuHAwWua htt & 


0) 
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%% Climb 
if isempty (Climb) == 
b_climb = find(diff([store_Abscissa_Climb2(:,2)])==1); 
b1l_climb = b_climb; 
for i = 1:length(b_climb)-1 
if b_climb (i+1)-b_climb (i)==1 && 
store_Climb2 (b_climb (it+1),1)>=store_Climb2 (b_climb(i),1) 
bl_climb(it+1) = 0; 
else continue 
end 
end 
b1_climb (b1_climb==0)=[]; 
bl_climb = bl_climb'; 
BeginningClimb = store_Abscissa_Climb2 (bl_climb,1); 
BeginningClimb = BeginningClimb'; 
BeginningClimb_Alt = Altitude_Input (BeginningClimb) ; 
BeginningClimb_Alt = BeginningClimb_Alt'; 


for i = 1:length(store_Abscissa_Climb2)-1 


Descent = [e_descent store_Abscissa_Descent2(end,1)]; 


ol 


if (store_Abscissa_Climb2(i+1,2) - store_Abscissa_Climb2 (i, 
&& 
store_Climb2 (i+1,1)<=store_Climb2(i,1)) || (store_Abscissa_Climb2 (i+1,2) 
—- store_Abscissa_Climb2 (i, 2) ~=1) 
e_climb(i) = store_Abscissa_Climb2(i,1); 
end 
end 
if exist ('e climb')== 
e_climb(e_climb==0) = []; 


EndClimb = [e_climb store_Abscissa_Climb2(end,1)]; 
EndClimb (EndClimb==0) = []; 
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EndClimb_Alt = Altitude_Input (EndClimb) ; 
else 

EndClimb = [store_Abscissa_Climb2(end,1)]; 
EndClimb (EndClimb==0) = []; 

EndClimb_Alt = Altitude_Input (EndClimb) ; 
end 

end 


if isempty (Climb) ==0 


Phase_Climb = [BeginningClimb; EndClimb]; 

end 

if isempty (Cruisel1) ==0 

Phase_Cruisel = [BeginningCruisel;EndCruisel]; 
end 

if isempty (Cruise2) == 

Phase_Cruise2 = [BeginningCruise2;EndCruise2]; 
end 

if isempty (Cruise3) == 

Phase_Cruise3 = [BeginningCruise3;EndCruise3]; 
end 

if isempty (Cruise4) == 

Phase_Cruise4 = [BeginningCruise4; EndCruise4]; 
end 

if isempty (Descent) ==0 

Phase_Descent = [BeginningDescent;EndDescent]; 
end 

hold on 


if isempty (Climb) == 
TClimb = reshape (Phase_Climb, [],1); 
TClimb = sortrows (TClimb) ; 


end 

if isempty (Cruisel1) == 

TCruisel = reshape (Phase_Cruisel,[],1); 
TCruisel = sortrows(TCruisel); 

end 

if isempty (Cruise2) == 

TCruise2 = reshape (Phase_Cruise2,[],1); 
TCruise2 = sortrows (TCruise2) ; 

end 

if isempty (Cruise3) ==0 

TCruise3 = reshape (Phase_Cruise3,[],1); 
TCruise3 = sortrows (TCruise3); 

end 

if isempty (Cruise4) == 

TCruise4 = reshape (Phase_Cruise4,[],1); 
TCruise4 = sortrows (TCruise4) ; 

end 

if isempty (Descent) == 

TDescent = reshape (Phase_Descent,[],1); 
TDescent = sortrows(TDescent) ; 


end 
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if isempty (Climb) == 


XCl = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XCl) 
if any(TClimb==i) %if any value from this vector is equal to 
increment 
XC1(i) = i; 
end 
end 


S==> vector with TClimb values separated by zeros 


for i = 1:length(BeginningClimb) 
Xcll = find (BeginningClimb (i) ==XCl1) ; 
Xcl2 = min(find(XCl1>Xcll1)); 
IntclX1X2 = Xcl1+1:Xcl2-1; 
for j=1:length (XC1) 
if any (IntclX1X2==j) 
XC1(j) = JF 
end 
end 
end 
end 


if isempty (Cruisel1) ==0 
XC1l = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XCl) 

if any(TCruisel==i) %if any value from this vector is equal to 
increment 

XC1(i) = i; 

end 

end 


%$==> vector with TCruisel values separated by zeros 


for i = 1:length(BeginningCruisel) 
Xcll = find (BeginningCruisel (i) ==XC1); 
Xc12 = min(find(XC1>Xcl11)); 
IntclX1X2 = Xcl1+1:Xcl2-1; 
for j=1:length(XC1) 
if any (Intc1lX1X2==j) 


XC1(j) = 3; 
end 
end 
end 
end 
if isempty (Cruise2) ==0 


XC2 = zeros (size (Altitude_Input) ); Screation of a vector 


for i = 1:length(XC2) 


if any(TCruise2==i) %if any value from this vector is equal to 
increment 
XC2(i) = i; 
end 


end 


$==> vector with TCruise2 values separated by zeros 


for i = 1:length (BeginningCruise2) 
Xc21 = find (BeginningCruise2 (i) ==XC2); 
Xc22 = min(find(XC2>Xc21)); 
Intc2X1X2 = Xc21+1:Xc22-1; 
for j=1:length (XC2) 
if any (Intc2X1X2==j) 
XC2(j) = J; 
end 
end 
end 
end 


if isempty (Cruise3) ==0 
XC3 = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XC3) 


if any(TCruise3==i) %if any value from this vector is equal to 


increment 
XC3(i) = i; 
end 
end 


S==> vector with TCruise3 values separated by zeros 


for i = 1:length(BeginningCruise3) 
= find(BeginningCruise3 (i) ==XC3) ; 
Xc32 = min(find(XC3>Xc31)); 
Intc3X1X2 = Xc31+1:Xc32-1; 
for j=1:length (XC3) 
if any (Intc3X1X2==}) 


Pad 
Q 
W 
fain 
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XC3(j) = JF 
end 
end 
end 
end 
if isempty (Cruise4) ==0 


XC4 = zeros (size (Altitude_Input) ); Screation of a vector 
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for i = 1:length(XC4) 


if any(TCruise4==i) %if any value from this vector is equal to 
increment 
XC4(i) = i; 
end 


end 


S==> vector with TCruise4 values separated by zeros 


for i = 1:length(BeginningCruise4) 
Xc41 = find (BeginningCruiseé4 (i) ==XC4); 
Xc42 = min(find(XC4>Xc41) ); 
Intc4X1X2 = Xc41+1:Xc42-1; 
for j=1:length (XC4) 
if any (Intc4X1X2==j) 


XC4(j) = 3; 
end 

end 

end 

end 


if isempty (Descent) == 


XDe = zeros (size (Altitude_Input) ); Screation of a vector 
for i = 1:length(XDe) 
if any(TDescent==i) %if any value from this vector is equal to 
increment 
XDe(i) = i; 
end 
end 


%==> vector with TDescent values separated by zeros 


for i = 1:length(BeginningDescent) 
Xdel = find(BeginningDescent (i) ==XDe) ; 
Xde2 = min(find(XDe>Xdel) ); 
IntdeX1X2 = Xdel+1:Xde2-1; 
for j=1:length (XDe) 
if any (IntdeX1X2==j) 


XDe(j) = J; 
end 

end 

end 

end 


if isempty (Climb) ==0 


XC1(XC1~=0) = 5; 
end 
if isempty (Cruisel1) ==0 


XC1(XC1~=0) = 6; 


end 


if isempty (Cruise2) ==0 
XC2 (XC2~=0) = 6; 


end 


if isempty (Cruise3) ==0 
XC3 (XC3~=0) = 6; 


end 


if isempty (Cruise4) ==0 
XC4 (XC4~=0) = 6; 


end 


if isempty (Descent) == 
XDe (XDe~=0) = 7; 


end 


if isempty (Cruisel1) ==0 
XC = XC1; 


end 


if exist ('XC')= 
for i=1:length ( 


end 
end 
Vector 


=1 


X 
if XC1 (i) 
Cc 


end 
if XC2(i)~= 
XC (i) 


end 


XC1 (i) ; 


XC2 (i); 


if isempty (Cruise3) ==0 


if XC3(i)~=0 


XC(i) = XC3(i) ; 


end 
end 


if isempty (Cruise4) ==0 


if XC4(i)~=0 


XC(i) = XC4(i) ; 


end 
end 


= zeros (size(Timestamp_Input) ); 


if exist ('XCl1')==1 


Vector 
end 


= XCl; 


if exist ('XC')== 
for i=1:length (XC) 


if XC(i)~=0 


Vector(i) = XC(i) 
end 
if exist ('XDe')==1 
if XDe(i)~=0 
Vector(i) = XDe(i); 
end 
end 
end 
end 
nan_values = sum(isnan(Vector) ); 


end 
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B.17: Matlab function to identify phases of flight using Local Regression/Rate of Climb if 


it is the best method found either on traffic patterns or non-traffic patterns (LRRC.m) 


function 
[Vector]=LRRC (Timestamp_Input,Altitude_Input, Increment_Optimization) 


Timestamp_Input = Timestamp_Input - min(Timestamp_Input) +1; 
New_BaroA_withoutGoogle = 

smooth (Altitude_Input, Increment_Optimization, 'loess'); 
timestamp = 1:numel (Timestamp_Input); 

hold on 


Timestamp_Climb = []; 
Timestamp_Cruise =[]; 
Timestamp_Descent = []; 
Climb = []; 

Climbplus = []; 
Abscissa_Climb = []; 
Abscissa_Climbplus = []; 


Cruisel = []; 

Cruiselplus = []; 
Abscissa_Cruisel = []; 
Abscissa_Cruiselplus = []; 
Cruise2 = []; 

Cruise2plus = []; 
Abscissa_Cruise2 = []; 
Abscissa_Cruise2plus = []; 
Cruise3 = []; 

Cruise3plus = []; 
Abscissa_Cruise3 = []; 
Abscissa_Cruise3plus = []; 
Cruise4 = []; 

Cruise4plus = []; 
Abscissa_Cruise4 = []; 
Abscissa_Cruise4plus = []; 
Descent = []; 

Descentplus = []; 
Abscissa_Descent = []; 
Abscissa_Descentplus = []; 
Cruisel_sum = []; 
Abscissa_Cruisel_sum = []; 
Cruise2_sum = []; 


Abscissa_Cruise2_sum 


ll 
— 
iss 
. 


Climb_sum = []; 
Abscissa_Climb_sum = []; 
Descent_sum = []; 

Abscissa_Descent_sum 


ll 
= 
fae 
~ 


BeginningClimb = []; 


EndClimb = []; 

BeginningCruisel 
EndCruisel = []; 
BeginningCruise2 
EndCruise2 = []; 
BeginningCruise3 
EndCruise3 = []; 
BeginningCruise4 
EndCruise4 = []; 
BeginningDescent 
EndDescent = []; 


Phase_Climb = []; 


Phase_Cruisel = 
Phase_Cruise2 = 
Phase_Cruise3 = 
Phase_Cruise4 
Phase_Descent = 


Success = []; 
Fail = []; 


b_descent = []; 
bl_descent = []; 
e_descent = [] 
b_climb = []; 
bl_climb = []; 


e_climb = []; 
b_cruisel = []; 
bi_cruisel = []; 
e_cruisel = []; 
b_cruise2 = []; 
bl_cruise2 = []; 
e_cruise2 = []; 
b_cruise3 = []; 
bl_cruise3 = []; 
e_cruise3 = []; 
b_cruise4 = []; 
bl_cruise4 = []; 
e_cruise4 = []; 


[]; 
[]; 
[]; 
[]; 
[]; 


[]; 


[]; 


[]; 


[]; 


[]; 


Cruise3_sum = 


Cruise4_sum = 


Abscissa_Cruise4_sum 
%% Segmentation between critical peaks 
for i=1:length (timestamp) —30 


[]; 
Abscissa_Cruise3_sum 


[]; 


[]; 


(ignore insignificant ones) 
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if (New_BaroA_withoutGoogle (i+29) -New_BaroA_withoutGoogle(i))>100 
Timestamp_Climb (i) =timestamp (i); 
Interval_Climb_timestamp = timestamp(i) : timestamp (it+29); 
Interval_Climb = Timestamp_Input (Interval_Climb_timestamp) ; 

end 


if (New_BaroA_withoutGoogle (i+29) -New_BaroA_withoutGoogle (i) )>-100 
&& (New_BaroA_withoutGoogle (i+29) -New_BaroA_withoutGoogle(i))<100 && 
Timestamp_Input (i) >500+min (Timestamp_Input) 
Timestamp_Cruise(i)=timestamp (i); 
Interval_Cruise_timestamp = timestamp(i) : timestamp (i+29); 
Interval_Cruise = Timestamp_Input (Interval_Cruise_timestamp) ; 
end 


if (New_BaroA_withoutGoogle (i+29) -New_BaroA_withoutGoogle (i) )<-100 
Timestamp_Descent (i) =timestamp (i); 
Interval_Descent_timestamp = timestamp(i) : timestamp (i+29); 
Interval_Descent = Timestamp_Input (Interval_Descent_timestamp) ; 
end 


end 
XCl = zeros (size (Altitude_Input) ); 
for i = 1:length(XCl) 

if size (Timestamp_Climb) ~=0 


if any (Timestamp_Climb==i) %if any value from this vector is equal 
to increment 
XC1l(i) = i; 
end 
end 
end 
XCr = zeros (size (Altitude_Input)); 


for i = 1:length(XCr) 
if size (Timestamp_Cruise) ~=0 


if any (Timestamp_Cruise==i) %if any value from this vector is 
equal to increment 
XCr(i) = i; 
end 
end 
end 
XDe = zeros (size (Altitude_Input) ); 


for i = 1:length(XDe) 
if size (Timestamp_Descent) ~=0 
if any (Timestamp_Descent==i) %if any value from this vector is 
equal to increment 
XDe(i) = i; 
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end 

end 
end 
XC1(XC1l~=0) = 5; 
XCr (XCr~=0) = 6; 
XDe (XDe~=0) = 7; 


Vector = XCl; 
for i=1:length (XC1) 
if XCr(i)~=0 


Vector(i) = XCr(i) ° 
end 
if XDe(i)~=0 
Vector(i) = XDe(i); 
end 
end 
nan_values = sum(isnan(Vector) ); 


end 


Upload file 


APPENDIX C: GUI FOR HAND-CODING 


Flight selected: 


log_150827_144041_KOSU 


Figure C.1: GUI display when uploading a flight 
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Upload files 
Altitude (ft) 


(“Add simple 
phases 


Climb, Cruise, 
Descent 


Figure C.2: GUI display after applying Simple phase of flight identification 
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Upload files 
Altitude (ft) 


Add Climb 


Add simple — 
phases 


Climb, Cruise, 
Descent 


Standing 
Taxi 
Takeoff 
Approach 
Touchdown 
Go-around 
Climb 
Cruise 
Descent 


Figure C.3: GUI display when adding a Descent phase 
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Upload files 
Altitude (ft) 
Add simple 
phases 


Climb, Cruise, 
Descent 


Touchdown 
Go-around 
Climb 
Cruise 
Descent 


Figure C.4: GUI display after completing hand-coding 


APPENDIX D: TABLE OF RESULTS FOR ALL 53 FLIGHTS (SET A) 


Table D.1: Examples of results for all 53 flights (Set A) 


Flight number Misidentification rate with Misidentification rate 
combination of methods with Local Regression 
(p = 100 s)/Altitude 
Difference 

1 6.36% 7.21% 

2 6.51% 7.62% 

5) 9.64% 9.69% 

4 4.90% 5.90% 

5 5.01% 5.21% 

6 7.88% 10.73% 

7 6.55% 7.37% 

8 3.57% 4.28% 

9 20.82% 22.97% 

10 8.64% 8.84% 

11 5.57% 6.51% 

12 5.98% 7.60% 

13 TA3% 8.03% 

14 3.10% 4.24% 

15 6.98% 7.53% 

16 5.56% 5.75% 

17 5.25% 6.79% 

18 4.59% 5.07% 

19 2.95% 4.69% 

20 6.62% 7.38% 

21 4.08% 5.75% 

22 TA3% 8.67% 

23 5.49% 5.58% 

24 4.25% 5.68% 

25 3.43% 5.42% 

26 7.74% 8.23% 

27 1.35% 1.56% 

28 1.31% 1.89% 

29 2.13% 2.40% 

30 3.24% 3.40% 

31 6.23% 7.05% 

32 5.34% 6.31% 

33 7.16% 7.53% 

34 4.68% 5.87% 

35 6.74% 7.07% 
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Table D.1: Examples of results for all 53 flights (Set A) (continued) 


Flight number Misidentification rate with Misidentification rate 
combination of methods with Local Regression 
(p = 100 s)/Altitude 
Difference 

36 710% 7.40% 

37 6.94% 7.80% 

38 14.92% 15.73% 

39 16.46% 16.69% 

40 7.63% 8.19% 

41 7.95% 8.00% 

42 6.00% 6.04% 

43 6.87% 7.70% 

44 5.20% 6.13% 

45 12.30% 12.78% 

46 5.94% 6.11% 

47 12.51% 12.66% 

48 7.22% 8.98% 

49 2.41% 2.56% 

50 12.88% 13.43% 

31 8.66% 9.48% 

52 5.02% 5.21% 

53 13.66% 13.82% 
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APPENDIX E: LIST OF ALL GARMIN G1000 PARAMETERS 


Table E.1 Garmin G1000 recorded parameters 
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Parameter G1000 Parameter ID G1000 Units 
Time Stamp 

Local Date Lcl Date mm/dd/yyyy 
Local Time Lcl Time hh:mm:ss 
Timezone UTCOfst hh:mm 
Time in Service 

Active Waypoint Identifier AtvWpt ident 
Distance to Next Waypoint WptDst nm 
Bearing to Next Waypoint WptBrg degrees 
Estimated Time En Route 

Latitude Latitude degrees 
Longitude Longitude degrees 
Altitude AltB feet Baro 
Altitude Valid 

Altitude Bug 

Barometer Setting BaroA inches 
Barometer Setting Valid 

Barometer Bug 

MSL Altitude AItMSL feet MSL 
Density Altitude 

Density Altitude Valid 

Outside Air Temperature OAT degrees C 
Total Temperature Valid 

Indicated Airspeed IAS kt 
Indicated Airspeed Bug 

Indicated Airspeed Valid 

Ground Speed GndSpd kt 
Vertical Speed VSpd fpm 
Altitude Rate Valid 

Vertical Speed Indicator Bug 

Pitch Pitch degrees 


Pitch Valid 


Table E.1 Garmin G1000 recorded parameters (continued) 
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Parameter G1000 Parameter ID G1000 Units 

Pitch Rate 

Pitch Rate Valid 

Roll Roll degrees 

Roll Valid 

Roll Rate 

Roll Rate Valid 

Yaw Rate 

Yaw Rate Valid 

Turn Rate 

Turn Rate Valid 

Lateral Acceleration LatAc G 

Lateral Acceleration Valid 

Vertical Acceleration NormAc G 

Vertical Acceleration Valid 

Longitudinal Acceleration 

Longitudinal Acceleration Valid 

Heading HDG degrees 

Heading Bug 

Magnetic Heading Valid 

Track TRK degrees 

Voltage | voltl; volt2 volts 

Amperage | amp1; amp2 amps 

Fuel Flow E1 FFlow gph 

Oil Temperature E1 OilT degrees F 

Oil Pressure E1 OilP psi 

Manifold Absolute Pressure El MAP Hg 

Engine Rotations per Minute El RPM rpm 

Engine Percent Power 

Engine Percent Torque 

Turbine Rotations per Minute 

Propeller Rotations per Minute 

Inlet Turbine Temperature 

Cylinder Head Temperature E1 CHT1; El CHT2; El CHT 3; | degrees F 
E1 CHT4; El CHTS5; El CHT6 

Exhaust Gas Temperature El EGT1; El EGT2; El EGT 3; | degrees F 
E1 EGT4; El EGT5; El EGT6 

Cool Temperature 

Altitude GPS AltGPS ft wgs 

True Airspeed TAS kt 

True Airspeed Valid 

Airspeed Trend 

Airspeed Trend Valid 
HSIS enum 

Course CRS degrees 


Table E.1 Garmin G1000 recorded parameters (continued) 
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Parameter G1000 Parameter ID G1000 Units 
Desired Course 

Navigational Frequency NAV1; NAV2 MHz 
Primary Navigation Source 

Communication Frequency COM1; COM2 MHZ 
Horizontal Course Deviation Indicator | HCDI fsd 
Horizontal Course Deviation Indicator 

Source 

Vertical Course Deviation Indicator VCDI fsd 
Vertical Course Deviation Indicator 

Source 

Wind Speed WndSpd kt 
Wind Direction WndDr degrees 
Magnetic Variation MagVar degrees 
Automatic Flight Control System On AfcsOn bool 

* RollIM enum 

re PitchM enum 

* RollC degrees 
= PitchC degrees 
GPS Vertical Speed VSpdG fpm 
GPS Fix GPSfix enum 
Horizontal Alert Limit HAL mt 
Vertical Alert Limit VAL mt 

© HPLwas mt 

* HPLfd mt 

* VPLwas mt 


Active Annunciators 


Logic States 


Map Format 


Map Range 


Flags 


Saturated 


Saturated Valid 


Go/No-go 


Needle Text Type 


Dh Alert 


Synthetic Rate Alarm 


Longterm Bias Drift Alarm 


Bias Cutout Alarm 


